From 3457b06a543ce40c1b1da1ee653d52b09b169740 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Fri, 27 Sep 1996 00:29:24 +0000 Subject: [PATCH] (rmail-read-label, rmail-add-label, rmail-kill-label) (rmail-previous-labeled-message, rmail-next-labeled-message): Add autoloads. --- lisp/mail/rmailkwd.el | 5 +++++ 1 file changed, 5 insertions(+) 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. -- 2.39.5