# HG changeset patch
# User Tassilo Horn <tassilo@member.fsf.org>
# Date 1244186756 0
# Node ID dbcad43aecdd3c20564c655c71df450106e4d25a
# Parent  6f4c24703dacdf0d1e75c4de806e2a3ec0925fca
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 -r 6f4c24703dac -r dbcad43aecdd lisp/org/ChangeLog
--- 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)
diff -r 6f4c24703dac -r dbcad43aecdd lisp/org/org-gnus.el
--- 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)