Mercurial > emacs

comparison lisp/mail/rmailkwd.el @ 16345:22d0a2f6a374

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(rmail-read-label, rmail-add-label, rmail-kill-label) (rmail-previous-labeled-message, rmail-next-labeled-message): Add autoloads.
author Richard M. Stallman <rms@gnu.org>
date Fri, 27 Sep 1996 00:29:24 +0000
parents 38aee5b6ac73
children 15fa3a1c6e88
comparison
equal deleted inserted replaced
16344:ec0f59ba6768 16345:22d0a2f6a374
42 42
43 ;; Named list of symbols representing valid message keywords in RMAIL. 43 ;; Named list of symbols representing valid message keywords in RMAIL.
44 44
45 (defvar rmail-keywords) 45 (defvar rmail-keywords)
46 46
47 ;;;###autoload
47 (defun rmail-add-label (string) 48 (defun rmail-add-label (string)
48 "Add LABEL to labels associated with current RMAIL message. 49 "Add LABEL to labels associated with current RMAIL message.
49 Completion is performed over known labels when reading." 50 Completion is performed over known labels when reading."
50 (interactive (list (rmail-read-label "Add label"))) 51 (interactive (list (rmail-read-label "Add label")))
51 (rmail-set-label string t)) 52 (rmail-set-label string t))
52 53
54 ;;;###autoload
53 (defun rmail-kill-label (string) 55 (defun rmail-kill-label (string)
54 "Remove LABEL from labels associated with current RMAIL message. 56 "Remove LABEL from labels associated with current RMAIL message.
55 Completion is performed over known labels when reading." 57 Completion is performed over known labels when reading."
56 (interactive (list (rmail-read-label "Remove label"))) 58 (interactive (list (rmail-read-label "Remove label")))
57 (rmail-set-label string nil)) 59 (rmail-set-label string nil))
58 60
61 ;;;###autoload
59 (defun rmail-read-label (prompt) 62 (defun rmail-read-label (prompt)
60 (if (not rmail-keywords) (rmail-parse-file-keywords)) 63 (if (not rmail-keywords) (rmail-parse-file-keywords))
61 (let ((result 64 (let ((result
62 (completing-read (concat prompt 65 (completing-read (concat prompt
63 (if rmail-last-label 66 (if rmail-last-label
167 (defun rmail-quote-label-name (label) 170 (defun rmail-quote-label-name (label)
168 (regexp-quote (symbol-name (rmail-make-label label t)))) 171 (regexp-quote (symbol-name (rmail-make-label label t))))
169 172
170 ;; Motion on messages with keywords. 173 ;; Motion on messages with keywords.
171 174
175 ;;;###autoload
172 (defun rmail-previous-labeled-message (n labels) 176 (defun rmail-previous-labeled-message (n labels)
173 "Show previous message with one of the labels LABELS. 177 "Show previous message with one of the labels LABELS.
174 LABELS should be a comma-separated list of label names. 178 LABELS should be a comma-separated list of label names.
175 If LABELS is empty, the last set of labels specified is used. 179 If LABELS is empty, the last set of labels specified is used.
176 With prefix argument N moves backward N messages with these labels." 180 With prefix argument N moves backward N messages with these labels."
177 (interactive "p\nsMove to previous msg with labels: ") 181 (interactive "p\nsMove to previous msg with labels: ")
178 (rmail-next-labeled-message (- n) labels)) 182 (rmail-next-labeled-message (- n) labels))
179 183
184 ;;;###autoload
180 (defun rmail-next-labeled-message (n labels) 185 (defun rmail-next-labeled-message (n labels)
181 "Show next message with one of the labels LABELS. 186 "Show next message with one of the labels LABELS.
182 LABELS should be a comma-separated list of label names. 187 LABELS should be a comma-separated list of label names.
183 If LABELS is empty, the last set of labels specified is used. 188 If LABELS is empty, the last set of labels specified is used.
184 With prefix argument N moves forward N messages with these labels." 189 With prefix argument N moves forward N messages with these labels."