Mercurial > emacs

comparison lisp/mail/rmailkwd.el @ 195:15510c65f799

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
*** empty log message ***
author Jim Blandy <jimb@redhat.com>
date Sat, 23 Feb 1991 19:19:56 +0000
parents 9697c13298e5
children 7cbd4fcd8b0f
comparison
equal deleted inserted replaced
194:5b0d1a9cf37e 195:15510c65f799
109 (narrow-to-region (- (buffer-size) omin) (- (buffer-size) omax)) 109 (narrow-to-region (- (buffer-size) omin) (- (buffer-size) omax))
110 (if (= n rmail-current-message) (rmail-display-labels))))))) 110 (if (= n rmail-current-message) (rmail-display-labels)))))))
111 111
112 ;; Commented functions aren't used by RMAIL but might be nice for user 112 ;; Commented functions aren't used by RMAIL but might be nice for user
113 ;; packages that do stuff with RMAIL. Note that rmail-message-labels-p 113 ;; packages that do stuff with RMAIL. Note that rmail-message-labels-p
114 ;; is in rmailsum now. 114 ;; is in rmail.el now.
115 115
116 ;(defun rmail-message-attribute-p (attribute &optional n) 116 ;(defun rmail-message-attribute-p (attribute &optional n)
117 ; "Returns t if ATTRIBUTE on NTH or current message." 117 ; "Returns t if ATTRIBUTE on NTH or current message."
118 ; (rmail-message-labels-p (rmail-make-label attribute t) n)) 118 ; (rmail-message-labels-p (rmail-make-label attribute t) n))
119 119
169 (defun rmail-quote-label-name (label) 169 (defun rmail-quote-label-name (label)
170 (regexp-quote (symbol-name (rmail-make-label label t)))) 170 (regexp-quote (symbol-name (rmail-make-label label t))))
171 171
172 ;; Motion on messages with keywords. 172 ;; Motion on messages with keywords.
173 173
174 (defun rmail-previous-labeled-message (n label) 174 (defun rmail-previous-labeled-message (n labels)
175 "Show previous message with LABEL. Defaults to last labels used. 175 "Show previous message with one of the labels LABELS.
176 LABELS should be a comma-separated list of label names.
177 If LABELS is empty, the last set of labels specified is used.
176 With prefix argument N moves backward N messages with these labels." 178 With prefix argument N moves backward N messages with these labels."
177 (interactive "p\nsMove to previous msg with labels: ") 179 (interactive "p\nsMove to previous msg with labels: ")
178 (rmail-next-labeled-message (- n) label)) 180 (rmail-next-labeled-message (- n) labels))
179 181
180 (defun rmail-next-labeled-message (n labels) 182 (defun rmail-next-labeled-message (n labels)
181 "Show next message with LABEL. Defaults to last labels used. 183 "Show next message with one of the labels LABELS.
184 LABELS should be a comma-separated list of label names.
185 If LABELS is empty, the last set of labels specified is used.
182 With prefix argument N moves forward N messages with these labels." 186 With prefix argument N moves forward N messages with these labels."
183 (interactive "p\nsMove to next msg with labels: ") 187 (interactive "p\nsMove to next msg with labels: ")
184 (if (string= labels "") 188 (if (string= labels "")
185 (setq labels rmail-last-multi-labels)) 189 (setq labels rmail-last-multi-labels))
186 (or labels 190 (or labels