Mercurial > emacs
changeset 4265:2812d8619305
(rmail-output): New arg NOATTRIBUTE.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Sun, 25 Jul 1993 02:19:47 +0000 |
| parents | af1bbadc70c7 |
| children | 5a7266ff9af1 |
| files | lisp/mail/rmailout.el |
| diffstat | 1 files changed, 10 insertions(+), 5 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/mail/rmailout.el Sat Jul 24 21:16:29 1993 +0000 +++ b/lisp/mail/rmailout.el Sun Jul 25 02:19:47 1993 +0000 @@ -148,11 +148,14 @@ ;;; 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 @@ (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)