[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] emacs/lisp/mail rmail.el
From: |
Chong Yidong |
Subject: |
[Emacs-diffs] emacs/lisp/mail rmail.el |
Date: |
Fri, 23 Jan 2009 19:02:24 +0000 |
CVSROOT: /sources/emacs
Module name: emacs
Changes by: Chong Yidong <cyd> 09/01/23 19:02:24
Modified files:
lisp/mail : rmail.el
Log message:
(rmail-get-labels): Obey the MSG argument.
CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/mail/rmail.el?cvsroot=emacs&r1=1.463&r2=1.464
Patches:
Index: rmail.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/mail/rmail.el,v
retrieving revision 1.463
retrieving revision 1.464
diff -u -b -r1.463 -r1.464
--- rmail.el 23 Jan 2009 15:10:16 -0000 1.463
+++ rmail.el 23 Jan 2009 19:02:24 -0000 1.464
@@ -2055,11 +2055,12 @@
It is put in comma-separated form.
MSG, if non-nil, identifies the message number to use.
If nil, that means the current message."
+ (or msg (setq msg rmail-current-message))
(let (blurb attr-names keywords)
;; Combine the message attributes and keywords
;; into a comma-separated list.
- (setq attr-names (rmail-get-attr-names rmail-current-message)
- keywords (rmail-get-keywords rmail-current-message))
+ (setq attr-names (rmail-get-attr-names msg)
+ keywords (rmail-get-keywords msg))
(if (string= keywords "")
(setq keywords nil))
(cond
- [Emacs-diffs] emacs/lisp/mail rmail.el, Chong Yidong, 2009/01/22
- [Emacs-diffs] emacs/lisp/mail rmail.el, Glenn Morris, 2009/01/22
- [Emacs-diffs] emacs/lisp/mail rmail.el, Chong Yidong, 2009/01/23
- [Emacs-diffs] emacs/lisp/mail rmail.el,
Chong Yidong <=
- [Emacs-diffs] emacs/lisp/mail rmail.el, Chong Yidong, 2009/01/23
- [Emacs-diffs] emacs/lisp/mail rmail.el, Glenn Morris, 2009/01/26
- [Emacs-diffs] emacs/lisp/mail rmail.el, Kenichi Handa, 2009/01/26
- [Emacs-diffs] emacs/lisp/mail rmail.el, Kenichi Handa, 2009/01/26
- [Emacs-diffs] emacs/lisp/mail rmail.el, Glenn Morris, 2009/01/27
- [Emacs-diffs] emacs/lisp/mail rmail.el, Chong Yidong, 2009/01/27
- [Emacs-diffs] emacs/lisp/mail rmail.el, Chong Yidong, 2009/01/28
- [Emacs-diffs] emacs/lisp/mail rmail.el, Chong Yidong, 2009/01/28
- [Emacs-diffs] emacs/lisp/mail rmail.el, Chong Yidong, 2009/01/28
- [Emacs-diffs] emacs/lisp/mail rmail.el, Glenn Morris, 2009/01/28