Add many autoload cookies.

diff --git a/lisp/mail/rmailsort.el b/lisp/mail/rmailsort.el
index 53974220c200f56e2fc63a01d896bdf0a739f0a3..4066890fea92ed4b931ecd357c7e789f9faf7099 100644 (file)
--- 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 <umerin@mse.kyutech.ac.jp>
-;; 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 c2d2414394a1d0f41fb764184bd5148ab8158865..3a3319ec1b52552b8ef8e9d9d9ad866324dd02a2 100644 (file)
--- 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