mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-19 18:13:55 +00:00
Code Issues Releases Activity

(rmail-fields-not-to-output): Add autoload cookie.

Browse Source 
(rmail-output-to-rmail-file, rmail-output): Likewise.
This commit is contained in:
Richard M. Stallman 1996-09-27 00:22:02 +00:00
parent a35f88bfca
commit c889a41aa6
1 changed files with 3 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
lisp/mail/rmailout.el
View File

@ -37,6 +37,7 @@ a file name as a string.")
;;; There are functions elsewhere in Emacs that use this function; check ;;; There are functions elsewhere in Emacs that use this function; check
;;; them out before you change the calling method. ;;; them out before you change the calling method.
;;;###autoload
(defun rmail-output-to-rmail-file (file-name &optional count) (defun rmail-output-to-rmail-file (file-name &optional count)
"Append the current message to an Rmail file named FILE-NAME. "Append the current message to an Rmail file named FILE-NAME.
If the file does not exist, ask if it should be created. If the file does not exist, ask if it should be created.
@ -170,6 +171,7 @@ starting with the current one. Deleted messages are skipped and don't count."
(if (> count 0) (if (> count 0)
(rmail-next-undeleted-message 1)))))) (rmail-next-undeleted-message 1))))))
;;;###autoload
(defvar rmail-fields-not-to-output nil (defvar rmail-fields-not-to-output nil
"*Regexp describing fields to exclude when outputting a message to a file.") "*Regexp describing fields to exclude when outputting a message to a file.")
@ -192,6 +194,7 @@ starting with the current one. Deleted messages are skipped and don't count."
;;; There are functions elsewhere in Emacs that use this function; check ;;; There are functions elsewhere in Emacs that use this function; check
;;; them out before you change the calling method. ;;; them out before you change the calling method.
;;;###autoload
(defun rmail-output (file-name &optional count noattribute from-gnus) (defun rmail-output (file-name &optional count noattribute from-gnus)
"Append this message to system-inbox-format mail file named FILE-NAME. "Append this message to system-inbox-format mail file named FILE-NAME.
A prefix argument N says to output N consecutive messages A prefix argument N says to output N consecutive messages