Mercurial > emacs
changeset 103325:dbcad43aecdd
Fix bug where org-gnus-store-link used wrong subject when called in an article
buffer. Patch provided by fengli AT gmail DOT com.
| author | Tassilo Horn <tassilo@member.fsf.org> |
|---|---|
| date | Fri, 05 Jun 2009 07:25:56 +0000 |
| parents | 6f4c24703dac |
| children | 65c6cc4bd9c8 |
| files | lisp/org/ChangeLog lisp/org/org-gnus.el |
| diffstat | 2 files changed, 9 insertions(+), 1 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/org/ChangeLog Fri Jun 05 01:58:53 2009 +0000 +++ b/lisp/org/ChangeLog Fri Jun 05 07:25:56 2009 +0000 @@ -1,3 +1,9 @@ +2009-06-05 Tassilo Horn <tassilo@member.fsf.org> + + * 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 <deego3@gmail.com> * org-bbdb.el: When calling (multiple-value-bind/setq .. ls)
--- a/lisp/org/org-gnus.el Fri Jun 05 01:58:53 2009 +0000 +++ b/lisp/org/org-gnus.el Fri Jun 05 07:25:56 2009 +0000 @@ -133,7 +133,9 @@ (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)