# HG changeset patch
# User Chong Yidong <cyd@stupidchicken.com>
# Date 1232737344 0
# Node ID d59cc7925a91091e696f0a15bb0ad532c33177af
# Parent  c1075d987474cbcdb4c8951331f76b1dd985a4d0
(rmail-get-labels): Obey the MSG argument.

diff -r c1075d987474 -r d59cc7925a91 lisp/mail/rmail.el
--- a/lisp/mail/rmail.el	Fri Jan 23 19:02:12 2009 +0000
+++ b/lisp/mail/rmail.el	Fri Jan 23 19:02:24 2009 +0000
@@ -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