# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 743566787 0
# Node ID 2812d861930503e705e94f10a066a8e01541a83c
# Parent  af1bbadc70c74d0e64535519f00a3ea424cef173
(rmail-output): New arg NOATTRIBUTE.

diff -r af1bbadc70c7 -r 2812d8619305 lisp/mail/rmailout.el
--- 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)