From 372a91d780f6a5cdc97d3245f9935024222fdf8a Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Fri, 27 Sep 1996 00:33:39 +0000 Subject: [PATCH] Add many autoload cookies. --- lisp/mail/rmailsort.el | 9 ++++++++- lisp/mail/undigest.el | 2 ++ 2 files changed, 10 insertions(+), 1 deletion(-) diff --git a/lisp/mail/rmailsort.el b/lisp/mail/rmailsort.el index 53974220c20..4066890fea9 100644 --- a/lisp/mail/rmailsort.el +++ b/lisp/mail/rmailsort.el @@ -3,7 +3,7 @@ ;; Copyright (C) 1990, 1993, 1994 Free Software Foundation, Inc. ;; Author: Masanobu UMEDA -;; Version: $Header: /home/gd/gnu/emacs/19.0/lisp/RCS/rmailsort.el,v 1.23 1996/01/14 14:30:11 kwzh Exp kwzh $ +;; Version: $Header: /home/fsf/rms/e19/lisp/RCS/rmailsort.el,v 1.24 1996/01/20 07:41:37 kwzh Exp rms $ ;; Keywords: mail ;; This file is part of GNU Emacs. @@ -34,6 +34,7 @@ ;; Sorting messages in Rmail buffer +;;;###autoload (defun rmail-sort-by-date (reverse) "Sort messages of current Rmail file by date. If prefix argument REVERSE is non-nil, sort them in reverse order." @@ -44,6 +45,7 @@ If prefix argument REVERSE is non-nil, sort them in reverse order." (rmail-make-date-sortable (rmail-fetch-field msg "Date")))))) +;;;###autoload (defun rmail-sort-by-subject (reverse) "Sort messages of current Rmail file by subject. If prefix argument REVERSE is non-nil, sort them in reverse order." @@ -58,6 +60,7 @@ If prefix argument REVERSE is non-nil, sort them in reverse order." (substring key (match-end 0)) key)))))) +;;;###autoload (defun rmail-sort-by-author (reverse) "Sort messages of current Rmail file by author. If prefix argument REVERSE is non-nil, sort them in reverse order." @@ -70,6 +73,7 @@ If prefix argument REVERSE is non-nil, sort them in reverse order." (or (rmail-fetch-field msg "From") (rmail-fetch-field msg "Sender") ""))))))) +;;;###autoload (defun rmail-sort-by-recipient (reverse) "Sort messages of current Rmail file by recipient. If prefix argument REVERSE is non-nil, sort them in reverse order." @@ -83,6 +87,7 @@ If prefix argument REVERSE is non-nil, sort them in reverse order." (rmail-fetch-field msg "Apparently-To") "") )))))) +;;;###autoload (defun rmail-sort-by-correspondent (reverse) "Sort messages of current Rmail file by other correspondent. If prefix argument REVERSE is non-nil, sort them in reverse order." @@ -104,6 +109,7 @@ If prefix argument REVERSE is non-nil, sort them in reverse order." (setq fields (cdr fields))) ans)) +;;;###autoload (defun rmail-sort-by-lines (reverse) "Sort messages of current Rmail file by number of lines. If prefix argument REVERSE is non-nil, sort them in reverse order." @@ -114,6 +120,7 @@ If prefix argument REVERSE is non-nil, sort them in reverse order." (count-lines (rmail-msgbeg msg) (rmail-msgend msg)))))) +;;;###autoload (defun rmail-sort-by-keywords (reverse labels) "Sort messages of current Rmail file by labels. If prefix argument REVERSE is non-nil, sort them in reverse order. diff --git a/lisp/mail/undigest.el b/lisp/mail/undigest.el index c2d2414394a..3a3319ec1b5 100644 --- a/lisp/mail/undigest.el +++ b/lisp/mail/undigest.el @@ -30,6 +30,7 @@ (require 'rmail) +;;;###autoload (defun undigestify-rmail-message () "Break up a digest message into its constituent messages. Leaves original message, deleted, before the undigestified messages." @@ -132,6 +133,7 @@ Leaves original message, deleted, before the undigestified messages." (delete-region (point-min) (point-max)) (rmail-show-message rmail-current-message)))))) +;;;###autoload (defun unforward-rmail-message () "Extract a forwarded message from the containing message. This puts the forwarded message into a separate rmail message -- 2.39.2