mirror of
https://git.savannah.gnu.org/git/emacs.git
synced 2024-12-27 10:54:40 +00:00
* mail/rmailkwd.el (rmail-set-label): Warn if multipe labels spec'd.
(rmail-kill-label, rmail-add-label): Doc fixes.
This commit is contained in:
parent
de62d9e983
commit
6dd50fed29
@ -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.
|
||||
|
||||
|
@ -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))
|
||||
|
Loading…
Reference in New Issue
Block a user