Mercurial > emacs

diff lisp/org/org-gnus.el @ 103325:dbcad43aecdd

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
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
line wrap: on
line diff
--- 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)