[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[O] proposed change of org-gnus-store-link for nnir groups
From: |
Thomas Alexander Gerds |
Subject: |
[O] proposed change of org-gnus-store-link for nnir groups |
Date: |
Sat, 12 Dec 2015 10:55:29 +0100 |
User-agent: |
Gnus/5.130014 (Ma Gnus v0.14) Emacs/24.4 (gnu/linux) |
sometimes after searching for mail with notmuch, I want to save a link
to one of the articles shown in the nnir summary. since nnir groups are
temporary I would like org-gnus-store-link to treat nnir groups
differently and to use the articles orginal group when creating the
link. the following 3 lines change of org-gnus-store-link does this for
me. if this is interesting for others maybe it could be integrated
... if not, I could either advice org-gnus-store-link or add a modified
version to org-store-link-functions. comments?
Thomas
lisp/org-gnus.el
diff --git a/lisp/org-gnus.el b/lisp/org-gnus.el
index c7b46af..b5cf9c9 100644
*** a/lisp/org-gnus.el
Highlight differences
--- a/lisp/org-gnus.el
+++ b/lisp/org-gnus.el
@@ -173,9 +173,12 @@ If `org-store-link' was called with a prefix arg the
meaning of
(to (cdr (assq 'To (mail-header-extra header))))
newsgroups x-no-archive desc link)
(when (eq (car (gnus-find-method-for-group gnus-newsgroup-name))
'nnvirtual)
(setq group (car (nnvirtual-map-article
(gnus-summary-article-number)))))
+ (when (eq (car (gnus-find-method-for-group gnus-newsgroup-name))
+ 'nnir)
+ (setq group (nnir-article-group (gnus-summary-article-number))))
;; Remove text properties of subject string to avoid Emacs bug
;; #3506
(set-text-properties 0 (length subject) nil subject)
--
sent from nil
- [O] proposed change of org-gnus-store-link for nnir groups,
Thomas Alexander Gerds <=