From a8f67b04836b9d3ed75f2138870ab04bf7fc1b34 Mon Sep 17 00:00:00 2001 From: Chong Yidong Date: Fri, 23 Jan 2009 19:02:24 +0000 Subject: [PATCH] (rmail-get-labels): Obey the MSG argument. --- lisp/mail/rmail.el | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) 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 -- 2.39.2