Mercurial > emacs
comparison lisp/org/org-gnus.el @ 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 | 6d71fc980cde |
| children | ac1a55cc2c38 |
comparison
equal
deleted
inserted
replaced
| 103324:6f4c24703dac | 103325:dbcad43aecdd |
|---|---|
| 131 (mail-header 'message-id header))) | 131 (mail-header 'message-id header))) |
| 132 (date (mail-header 'date header)) | 132 (date (mail-header 'date header)) |
| 133 (to (mail-header 'to header)) | 133 (to (mail-header 'to header)) |
| 134 (newsgroups (mail-header 'newsgroups header)) | 134 (newsgroups (mail-header 'newsgroups header)) |
| 135 (x-no-archive (mail-header 'x-no-archive header)) | 135 (x-no-archive (mail-header 'x-no-archive header)) |
| 136 (subject (gnus-summary-subject-string)) | 136 (subject (if (eq major-mode 'gnus-article-mode) |
| 137 (message-fetch-field "subject") | |
| 138 (gnus-summary-subject-string))) | |
| 137 desc link) | 139 desc link) |
| 138 (org-store-link-props :type "gnus" :from from :subject subject | 140 (org-store-link-props :type "gnus" :from from :subject subject |
| 139 :message-id message-id :group group :to to) | 141 :message-id message-id :group group :to to) |
| 140 (setq desc (org-email-link-description) | 142 (setq desc (org-email-link-description) |
| 141 link (org-gnus-article-link group newsgroups message-id x-no-archive)) | 143 link (org-gnus-article-link group newsgroups message-id x-no-archive)) |