changeset 13061:f1aa67661689

(mail-do-fcc): Erase the ` mail-temp' buffer.
author Richard M. Stallman <rms@gnu.org>
date Fri, 22 Sep 1995 02:46:46 +0000
parents 9154b9967e2b
children d483d9923c33
files lisp/mail/sendmail.el
diffstat 1 files changed, 3 insertions(+), 1 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/mail/sendmail.el	Thu Sep 21 22:03:57 1995 +0000
+++ b/lisp/mail/sendmail.el	Fri Sep 22 02:46:46 1995 +0000
@@ -701,12 +701,14 @@
 		;; convert the message to Babyl format.
 		(save-excursion
 		  (set-buffer (get-buffer-create " mail-temp"))
+		  (erase-buffer)
 		  (insert "\C-l\n0, unseen,,\n*** EOOH ***\n"
 			  "From: " (user-login-name) "\n"
 			  "Date: " (mail-rfc822-date) "\n")
 		  (insert-buffer-substring curbuf beg2 end)
 		  (insert "\n\C-_")
-		  (write-region (point-min) (point-max) (car fcc-list) t))
+		  (write-region (point-min) (point-max) (car fcc-list) t)
+		  (erase-buffer))
 	      (write-region
 	       (1+ (point-min)) (point-max) (car fcc-list) t))))
 	(setq fcc-list (cdr fcc-list))))