Mercurial > emacs
changeset 16345:22d0a2f6a374
(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 | ec0f59ba6768 |
| children | 09fccbb1dcf1 |
| files | lisp/mail/rmailkwd.el |
| diffstat | 1 files changed, 5 insertions(+), 0 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/mail/rmailkwd.el Fri Sep 27 00:25:55 1996 +0000 +++ b/lisp/mail/rmailkwd.el Fri Sep 27 00:29:24 1996 +0000 @@ -44,18 +44,21 @@ (defvar rmail-keywords) +;;;###autoload (defun rmail-add-label (string) "Add LABEL to labels associated with current RMAIL message. Completion is performed over known labels when reading." (interactive (list (rmail-read-label "Add label"))) (rmail-set-label string t)) +;;;###autoload (defun rmail-kill-label (string) "Remove LABEL from labels associated with current RMAIL message. Completion is performed over known labels when reading." (interactive (list (rmail-read-label "Remove label"))) (rmail-set-label string nil)) +;;;###autoload (defun rmail-read-label (prompt) (if (not rmail-keywords) (rmail-parse-file-keywords)) (let ((result @@ -169,6 +172,7 @@ ;; Motion on messages with keywords. +;;;###autoload (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. @@ -177,6 +181,7 @@ (interactive "p\nsMove to previous msg with labels: ") (rmail-next-labeled-message (- n) labels)) +;;;###autoload (defun rmail-next-labeled-message (n labels) "Show next message with one of the labels LABELS. LABELS should be a comma-separated list of label names.