[Emacs-diffs] emacs/lisp/org ChangeLog org-gnus.el

[Tassilo Horn]

CVSROOT:        /sources/emacs
Module name:    emacs
Changes by:     Tassilo Horn <tsdh>     09/06/05 07:25:57

Modified files:
        lisp/org       : ChangeLog org-gnus.el 

Log message:
        Fix bug where org-gnus-store-link used wrong subject when called in an 
article
        buffer.  Patch provided by fengli AT gmail DOT com.

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/org/ChangeLog?cvsroot=emacs&r1=1.72&r2=1.73
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/org/org-gnus.el?cvsroot=emacs&r1=1.23&r2=1.24

Patches:
Index: ChangeLog
===================================================================
RCS file: /sources/emacs/emacs/lisp/org/ChangeLog,v
retrieving revision 1.72
retrieving revision 1.73
diff -u -b -r1.72 -r1.73
--- ChangeLog   14 Mar 2009 03:04:22 -0000      1.72
+++ ChangeLog   5 Jun 2009 07:25:56 -0000       1.73
@@ -1,3 +1,9 @@
+2009-06-05  Tassilo Horn  <address@hidden>
+
+       * 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  <address@hidden>
 
        * org-bbdb.el: When calling (multiple-value-bind/setq .. ls)

Index: org-gnus.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/org/org-gnus.el,v
retrieving revision 1.23
retrieving revision 1.24
diff -u -b -r1.23 -r1.24
--- org-gnus.el 2 Feb 2009 20:57:15 -0000       1.23
+++ org-gnus.el 5 Jun 2009 07:25:56 -0000       1.24
@@ -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)