From f6f4d6902b1673aa6b03314799a40c42767bd7df Mon Sep 17 00:00:00 2001 From: Karl Heuer Date: Mon, 20 Oct 1997 03:49:42 +0000 Subject: [PATCH] (mail-do-fcc): Handle dont-write-the-file correctly--don't write msg to the file after saving it from a buffer. --- lisp/mail/sendmail.el | 40 ++++++++++++++++++++-------------------- 1 file changed, 20 insertions(+), 20 deletions(-) diff --git a/lisp/mail/sendmail.el b/lisp/mail/sendmail.el index 6b7ab2b1f1f..e1b1b8f2936 100644 --- a/lisp/mail/sendmail.el +++ b/lisp/mail/sendmail.el @@ -905,26 +905,26 @@ the user from the mailer." (if max (narrow-to-region (point-min) max)))))) ;; Append to the file directly, ;; unless we've already taken care of it. - (if (and (not dont-write-the-file) - (file-exists-p (car fcc-list)) - (mail-file-babyl-p (car fcc-list))) - ;; If the file is a Babyl file, - ;; convert the message to Babyl format. - (let ((coding-system-for-write - (or rmail-file-coding-system - 'emacs-mule))) - (save-excursion - (set-buffer (get-buffer-create " mail-temp")) - (setq buffer-read-only nil) - (erase-buffer) - (insert "\C-l\n0, unseen,,\n*** EOOH ***\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) - (erase-buffer))) - (write-region - (1+ (point-min)) (point-max) (car fcc-list) t)) + (unless dont-write-the-file + (if (and (file-exists-p (car fcc-list)) + (mail-file-babyl-p (car fcc-list))) + ;; If the file is a Babyl file, + ;; convert the message to Babyl format. + (let ((coding-system-for-write + (or rmail-file-coding-system + 'emacs-mule))) + (save-excursion + (set-buffer (get-buffer-create " mail-temp")) + (setq buffer-read-only nil) + (erase-buffer) + (insert "\C-l\n0, unseen,,\n*** EOOH ***\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) + (erase-buffer))) + (write-region + (1+ (point-min)) (point-max) (car fcc-list) t))) (and buffer (not dont-write-the-file) (with-current-buffer buffer (set-visited-file-modtime)))) -- 2.39.2