mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-12-26 10:49:33 +00:00
Code Issues Releases Activity

* mail/rmailkwd.el (rmail-set-label): Warn if multipe labels spec'd.

Browse Source 
(rmail-kill-label, rmail-add-label): Doc fixes.
This commit is contained in:
Richard M. Stallman 2009-04-09 16:50:36 +00:00
parent de62d9e983
commit 6dd50fed29
2 changed files with 7 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
lisp/ChangeLog
View File

@ -1,5 +1,8 @@
2009-04-09 Richard M Stallman <rms@gnu.org>
* mail/rmailkwd.el (rmail-set-label): Warn if multipe labels spec'd.
(rmail-kill-label, rmail-add-label): Doc fixes.
* mail/rmailout.el (rmail-output): If file is visited,
check the buffer's format.

6
lisp/mail/rmailkwd.el
View File

@ -46,7 +46,7 @@
(defun rmail-add-label (label)
"Add LABEL to labels associated with current RMAIL message.
Completes (see `rmail-read-label') over known labels when reading.
LABEL may be a symbol or string."
LABEL may be a symbol or string. Only one label is allowed."
(interactive (list (rmail-read-label "Add label")))
(rmail-set-label label t))
@ -54,7 +54,7 @@ LABEL may be a symbol or string."
(defun rmail-kill-label (label)
"Remove LABEL from labels associated with current RMAIL message.
Completes (see `rmail-read-label') over known labels when reading.
LABEL may be a symbol or string."
LABEL may be a symbol or string. Only one label is allowed."
(interactive (list (rmail-read-label "Remove label")))
(rmail-set-label label nil))
@ -92,6 +92,8 @@ according to the choice made, and returns a symbol."
"Set LABEL as present or absent according to STATE in message MSG.
LABEL may be a symbol or string."
(or (stringp label) (setq label (symbol-name label)))
(if (string-match "," label)
(error "More than one label specified"))
(with-current-buffer rmail-buffer
(rmail-maybe-set-message-counters)
(or msg (setq msg rmail-current-message))