From: Chong Yidong <cyd@stupidchicken.com>
Date: Fri, 23 Jan 2009 19:02:24 +0000 (+0000)
Subject: (rmail-get-labels): Obey the MSG argument.
X-Git-Tag: emacs-pretest-23.0.90~257
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=a8f67b04836b9d3ed75f2138870ab04bf7fc1b34;p=emacs.git

(rmail-get-labels): Obey the MSG argument.
---

diff --git a/lisp/mail/rmail.el b/lisp/mail/rmail.el
index dac06441f6d..19f32efc136 100644
--- a/lisp/mail/rmail.el
+++ b/lisp/mail/rmail.el
@@ -2055,11 +2055,12 @@ If nil, that means the current message."
 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