[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.


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))

reply via email to

[Prev in Thread] Current Thread [Next in Thread]