diff options
| author | Richard M. Stallman <rms@gnu.org> | 1996-09-27 00:29:24 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 1996-09-27 00:29:24 +0000 |
| commit | 3457b06a543ce40c1b1da1ee653d52b09b169740 (patch) | |
| tree | bd1ceab103fd4d50e0a99f9ee68b364a3cba94db /lisp/mail/rmailkwd.el | |
| parent | d2288651c20276f34a39d93c133201bc95bec058 (diff) | |
| download | emacs-3457b06a543ce40c1b1da1ee653d52b09b169740.tar.gz | |
(rmail-read-label, rmail-add-label, rmail-kill-label)
(rmail-previous-labeled-message, rmail-next-labeled-message):
Add autoloads.
Diffstat (limited to 'lisp/mail/rmailkwd.el')
| -rw-r--r-- | lisp/mail/rmailkwd.el | 5 |
1 files changed, 5 insertions, 0 deletions
diff --git a/lisp/mail/rmailkwd.el b/lisp/mail/rmailkwd.el index 37875bf16f4..dfafab38e60 100644 --- a/lisp/mail/rmailkwd.el +++ b/lisp/mail/rmailkwd.el @@ -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 @@ Completion is performed over known labels when reading." ;; 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 @@ With prefix argument N moves backward N messages with these labels." (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. |