mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-23 18:47:57 +00:00
Code Issues Releases Activity

*** empty log message ***

Browse Source
This commit is contained in:
Jim Blandy 1991-02-23 19:19:56 +00:00
parent 2dd96f2330
commit ac13660acb
1 changed files with 9 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
lisp/mail/rmailkwd.el
View File

@ -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 "")