procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

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

Browse source
This commit is contained in:
Chong Yidong 2009-01-23 19:02:24 +00:00
parent 4e231ada92
commit a8f67b0483
1 changed files with 3 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
lisp/mail/rmail.el
View file

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