From: Richard M. Stallman <rms@gnu.org>
Date: Fri, 27 Sep 1996 00:29:24 +0000 (+0000)
Subject: (rmail-read-label, rmail-add-label, rmail-kill-label)
X-Git-Tag: emacs-20.1~3599
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=3457b06a543ce40c1b1da1ee653d52b09b169740;p=emacs.git

(rmail-read-label, rmail-add-label, rmail-kill-label)
(rmail-previous-labeled-message, rmail-next-labeled-message):
Add autoloads.
---

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.