(mail-do-fcc): Handle dont-write-the-file

correctly--don't write msg to the file after saving it from a buffer.

1 files 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))))