From: Tassilo Horn Date: Fri, 5 Jun 2009 07:25:56 +0000 (+0000) Subject: Fix bug where org-gnus-store-link used wrong subject when called in an article X-Git-Tag: emacs-pretest-23.0.95~133 X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=a5a79894f66d9e32df412322f5420dcf66a88b83;p=emacs.git Fix bug where org-gnus-store-link used wrong subject when called in an article buffer. Patch provided by fengli AT gmail DOT com. --- diff --git a/lisp/org/ChangeLog b/lisp/org/ChangeLog index 9617837b37d..74150d9de13 100644 --- a/lisp/org/ChangeLog +++ b/lisp/org/ChangeLog @@ -1,3 +1,9 @@ +2009-06-05 Tassilo Horn + + * org-gnus.el (org-gnus-store-link): Fix bug where + org-gnus-store-link used wrong subject when called in an article + buffer. Patch provided by fengli AT gmail DOT com. + 2009-03-13 D. Goel * org-bbdb.el: When calling (multiple-value-bind/setq .. ls) diff --git a/lisp/org/org-gnus.el b/lisp/org/org-gnus.el index 9d97519e660..6ef5778d543 100644 --- a/lisp/org/org-gnus.el +++ b/lisp/org/org-gnus.el @@ -133,7 +133,9 @@ If `org-store-link' was called with a prefix arg the meaning of (to (mail-header 'to header)) (newsgroups (mail-header 'newsgroups header)) (x-no-archive (mail-header 'x-no-archive header)) - (subject (gnus-summary-subject-string)) + (subject (if (eq major-mode 'gnus-article-mode) + (message-fetch-field "subject") + (gnus-summary-subject-string))) desc link) (org-store-link-props :type "gnus" :from from :subject subject :message-id message-id :group group :to to)