Fix bug where org-gnus-store-link used wrong subject when called in an article

buffer.  Patch provided by fengli AT gmail DOT com.

2 files changed, 9 insertions, 1 deletions

diff --git a/lisp/org/ChangeLog b/lisp/org/ChangeLog
index 9617837b37d..74150d9de13 100644
--- a/lisp/org/ChangeLog
+++ b/lisp/org/ChangeLog
@@ -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 --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)