Mercurial > emacs
diff lisp/mail/rmailsort.el @ 16348:2cf33d3c5540
Add many autoload cookies.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Fri, 27 Sep 1996 00:33:39 +0000 |
| parents | 48efd0c5b5dc |
| children | 18b8f50567b2 |
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.