ndwarshuis
/
org-mode
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

org-gnus.el: change nnir group reference 

* lisp/org-gnus.el (org-gnus-store-link): Articles in an nnir group
  refer to the original group.

TINYCHANGE
This commit is contained in:
Thomas Alexander Gerds 2015-12-18 07:43:38 +01:00 committed by Nicolas Goaziou
parent babcfaa4eb
commit 73803c1cf9
2 changed files with 9 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
etc/ORG-NEWS
View File

@ -122,6 +122,9 @@ Note that only ~%(...)~ placeholders initially present in the
template, or introduced using a file placeholder, i.e., ~%[...]~ are template, or introduced using a file placeholder, i.e., ~%[...]~ are
expanded. This prevents evaluating potentially malicious code when expanded. This prevents evaluating potentially malicious code when
another placeholder, e.g., ~%i~ expands to a S-exp. another placeholder, e.g., ~%i~ expands to a S-exp.
*** Links stored by ~org-gnus-store-link~ in nnir groups
Since gnus nnir groups are temporary, ~org-gnus-store-link~ now refers
to the article's original group.
*** ~org-babel-check-confirm-evaluate~ is now a function instead of a macro *** ~org-babel-check-confirm-evaluate~ is now a function instead of a macro
The calling convention has changed. The calling convention has changed.

10
lisp/org-gnus.el
View File

@ -172,10 +172,12 @@ If `org-store-link' was called with a prefix arg the meaning of
(subject (copy-sequence (mail-header-subject header))) (subject (copy-sequence (mail-header-subject header)))
(to (cdr (assq 'To (mail-header-extra header)))) (to (cdr (assq 'To (mail-header-extra header))))
newsgroups x-no-archive desc link) newsgroups x-no-archive desc link)
(when (eq (car (gnus-find-method-for-group gnus-newsgroup-name)) (cl-case (car (gnus-find-method-for-group gnus-newsgroup-name))
'nnvirtual) (nnvirtual
(setq group (car (nnvirtual-map-article (setq group (car (nnvirtual-map-article
(gnus-summary-article-number))))) (gnus-summary-article-number)))))
(nnir
(setq group (nnir-article-group (gnus-summary-article-number)))))
;; Remove text properties of subject string to avoid Emacs bug ;; Remove text properties of subject string to avoid Emacs bug
;; #3506 ;; #3506
(set-text-properties 0 (length subject) nil subject) (set-text-properties 0 (length subject) nil subject)