Mercurial > emacs
changeset 16348:2cf33d3c5540
Add many autoload cookies.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Fri, 27 Sep 1996 00:33:39 +0000 |
| parents | d710d3502336 |
| children | 2e16f18e316c |
| files | lisp/mail/rmailsort.el lisp/mail/undigest.el |
| diffstat | 2 files changed, 10 insertions(+), 1 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/mail/rmailsort.el Fri Sep 27 00:31:16 1996 +0000 +++ b/lisp/mail/rmailsort.el Fri Sep 27 00:33:39 1996 +0000 @@ -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 @@ (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 @@ (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 @@ (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 @@ (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 @@ (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 @@ (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.
--- a/lisp/mail/undigest.el Fri Sep 27 00:31:16 1996 +0000 +++ b/lisp/mail/undigest.el Fri Sep 27 00:33:39 1996 +0000 @@ -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 @@ (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