From 07f4a04d887c073e0ae131491078a81da861785d Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Fri, 22 Sep 1995 02:46:46 +0000 Subject: [PATCH] (mail-do-fcc): Erase the ` mail-temp' buffer. --- lisp/mail/sendmail.el | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) 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)))) -- 2.39.2