# HG changeset patch
# User Karl Heuer <kwzh@gnu.org>
# Date 877319382 0
# Node ID f83d5ee9a78e6c83ab9e14be11176fbe5d75aa4e
# Parent  496ecb0c5e6847ab07c8b433a2a2a3adc7e617cc
(mail-do-fcc): Handle dont-write-the-file
correctly--don't write msg to the file after saving it from a buffer.

diff -r 496ecb0c5e68 -r f83d5ee9a78e lisp/mail/sendmail.el
--- a/lisp/mail/sendmail.el	Sun Oct 19 21:02:27 1997 +0000
+++ b/lisp/mail/sendmail.el	Mon Oct 20 03:49:42 1997 +0000
@@ -905,26 +905,26 @@
 		    (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))))