From: Richard M. Stallman <rms@gnu.org>
Date: Fri, 22 Sep 1995 02:46:46 +0000 (+0000)
Subject: (mail-do-fcc): Erase the ` mail-temp' buffer.
X-Git-Tag: emacs-19.34~2799
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=07f4a04d887c073e0ae131491078a81da861785d;p=emacs.git

(mail-do-fcc): Erase the ` mail-temp' buffer.
---

diff --git a/lisp/mail/sendmail.el b/lisp/mail/sendmail.el
index 49374c4e897..25a5501c888 100644
--- a/lisp/mail/sendmail.el
+++ b/lisp/mail/sendmail.el
@@ -701,12 +701,14 @@ the user from the mailer."
 		;; 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))))