Mercurial > emacs
changeset 195:15510c65f799
*** empty log message ***
| author | Jim Blandy <jimb@redhat.com> |
|---|---|
| date | Sat, 23 Feb 1991 19:19:56 +0000 |
| parents | 5b0d1a9cf37e |
| children | cb231c9208d8 |
| files | lisp/mail/rmailkwd.el |
| diffstat | 1 files changed, 9 insertions(+), 5 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/mail/rmailkwd.el Sat Feb 23 18:14:25 1991 +0000 +++ b/lisp/mail/rmailkwd.el Sat Feb 23 19:19:56 1991 +0000 @@ -111,7 +111,7 @@ ;; 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 @@ ;; 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 "")