diff options
-rw-r--r-- | lisp/mail/rmailkwd.el | 14 |
1 files changed, 9 insertions, 5 deletions
diff --git a/lisp/mail/rmailkwd.el b/lisp/mail/rmailkwd.el index af48e0f7dec..11b4cf54813 100644 --- a/lisp/mail/rmailkwd.el +++ b/lisp/mail/rmailkwd.el @@ -111,7 +111,7 @@ Completion is performed over known labels when reading." ;; Commented functions aren't used by RMAIL but might be nice for user ;; packages that do stuff with RMAIL. Note that rmail-message-labels-p -;; is in rmailsum now. +;; is in rmail.el now. ;(defun rmail-message-attribute-p (attribute &optional n) ; "Returns t if ATTRIBUTE on NTH or current message." @@ -171,14 +171,18 @@ Completion is performed over known labels when reading." ;; Motion on messages with keywords. -(defun rmail-previous-labeled-message (n label) - "Show previous message with LABEL. Defaults to last labels used. +(defun rmail-previous-labeled-message (n labels) + "Show previous message with one of the labels LABELS. +LABELS should be a comma-separated list of label names. +If LABELS is empty, the last set of labels specified is used. With prefix argument N moves backward N messages with these labels." (interactive "p\nsMove to previous msg with labels: ") - (rmail-next-labeled-message (- n) label)) + (rmail-next-labeled-message (- n) labels)) (defun rmail-next-labeled-message (n labels) - "Show next message with LABEL. Defaults to last labels used. + "Show next message with one of the labels LABELS. +LABELS should be a comma-separated list of label names. +If LABELS is empty, the last set of labels specified is used. With prefix argument N moves forward N messages with these labels." (interactive "p\nsMove to next msg with labels: ") (if (string= labels "") |