# HG changeset patch
# User Jim Blandy <jimb@redhat.com>
# Date 667336796 0
# Node ID 15510c65f799dcf5d88b24852d4e3b3d634f31b1
# Parent  5b0d1a9cf37e3951d3b5b87af178381786c91a11
*** empty log message ***

diff -r 5b0d1a9cf37e -r 15510c65f799 lisp/mail/rmailkwd.el
--- 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 "")