diff options
| author | Tassilo Horn <tassilo@member.fsf.org> | 2009-06-05 07:25:56 +0000 |
|---|---|---|
| committer | Tassilo Horn <tassilo@member.fsf.org> | 2009-06-05 07:25:56 +0000 |
| commit | a5a79894f66d9e32df412322f5420dcf66a88b83 (patch) | |
| tree | 0677745cd7fa22c23c415edb103469d00e7f3254 /lisp/org/org-gnus.el | |
| parent | 42481bde613cc36ac718954aa3d9f6837a476d3a (diff) | |
| download | emacs-a5a79894f66d9e32df412322f5420dcf66a88b83.tar.gz | |
Fix bug where org-gnus-store-link used wrong subject when called in an article
buffer. Patch provided by fengli AT gmail DOT com.
Diffstat (limited to 'lisp/org/org-gnus.el')
| -rw-r--r-- | lisp/org/org-gnus.el | 4 |
1 files changed, 3 insertions, 1 deletions
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) |