diff options
| author | Richard M. Stallman <rms@gnu.org> | 1996-09-27 00:33:39 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 1996-09-27 00:33:39 +0000 |
| commit | 372a91d780f6a5cdc97d3245f9935024222fdf8a (patch) | |
| tree | f8d6ba1983a4e47738f1096c6ad1eeda23359f86 | |
| parent | 523abd28e7ba7bd76a7a6aa1cb1e326b1d1a12ce (diff) | |
| download | emacs-372a91d780f6a5cdc97d3245f9935024222fdf8a.tar.gz | |
Add many autoload cookies.
| -rw-r--r-- | lisp/mail/rmailsort.el | 9 | ||||
| -rw-r--r-- | lisp/mail/undigest.el | 2 |
2 files changed, 10 insertions, 1 deletions
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 <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 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 |