mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-15 10:30:25 -08:00
Code Issues Projects Releases Wiki Activity

(rmail-output): New arg NOATTRIBUTE.

Browse source
This commit is contained in:
Richard M. Stallman 1993-07-25 02:19:47 +00:00
parent e76841099a
commit 6e446ebbcc
1 changed files with 10 additions and 5 deletions
Download patch file Download diff file Expand all files Collapse all files

15
lisp/mail/rmailout.el
View file

@ -148,11 +148,14 @@ starting with the current one. Deleted messages are skipped and don't count."
;;; There are functions elsewhere in Emacs that use this function; check
;;; them out before you change the calling method.
(defun rmail-output (file-name &optional count)
(defun rmail-output (file-name &optional count noattribute)
"Append this message to Unix mail file named FILE-NAME.
A prefix argument N says to output N consecutive messages
starting with the current one. Deleted messages are skipped and don't count.
When called from lisp code, N may be omitted."
When called from lisp code, N may be omitted.
The optional third argument NOATTRIBUTE, if non-nil, says not
to set the `filed' attribute, and not to display a message."
(interactive
(list (setq rmail-last-file
(read-file-name
@ -194,10 +197,12 @@ When called from lisp code, N may be omitted."
(while (search-forward "\nFrom " nil t)
(forward-char -5)
(insert ?>))
(append-to-file (point-min) (point-max) file-name))
(write-region (point-min) (point-max) file-name t
(if noattribute 'nomsg)))
(kill-buffer tembuf))
(if (equal major-mode 'rmail-mode)
(rmail-set-attribute "filed" t))
(or noattribute
(if (equal major-mode 'rmail-mode)
(rmail-set-attribute "filed" t)))
(setq count (1- count))
(if rmail-delete-after-output
(rmail-delete-forward)