[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] emacs/lisp/org ChangeLog org-gnus.el
From: |
Tassilo Horn |
Subject: |
[Emacs-diffs] emacs/lisp/org ChangeLog org-gnus.el |
Date: |
Fri, 05 Jun 2009 07:25:57 +0000 |
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)
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] emacs/lisp/org ChangeLog org-gnus.el,
Tassilo Horn <=