diff options
author | Jim Blandy <jimb@redhat.com> | 1991-02-23 19:19:56 +0000 |
---|---|---|
committer | Jim Blandy <jimb@redhat.com> | 1991-02-23 19:19:56 +0000 |
commit | d55bdfbcd83255998bed78d8fe55c1b1b9eeb5a6 (patch) | |
tree | 45d3a213f1672b18819ad27969a4b7b8a48d700f | |
parent | 2cc1d71c3e9fbb9b3fcaa8d9d91cd6d7731538ea (diff) | |
download | emacs-d55bdfbcd83255998bed78d8fe55c1b1b9eeb5a6.tar.gz |
*** empty log message ***
-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 "") |