emacs-orgmode
[Top][All Lists]
Advanced

[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



reply via email to

[Prev in Thread] Current Thread [Next in Thread]