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 --git a/lisp/org/ChangeLog b/lisp/org/ChangeLog
index 9617837b37d2959898cca406736e527b8fa9ac68..74150d9de1347de8c4c9b657d91cdfe8d261907d 100644 (file)
--- 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 9d97519e660368ec5ca0061bbbc797816576f8b8..6ef5778d543977b4c63843c53d3410740a7bdcbe 100644 (file)
--- 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)