# HG changeset patch
# User Gerd Moellmann <gerd@gnu.org>
# Date 956063086 0
# Node ID 239d5d98c1bdd1ef5ebac9971fd6c335f19a5098
# Parent  5e9674136340fc66cad112dc91eacd0c167bee40
(mail-do-fcc): Prevent inserting a newline
at the start of an existing but empty folder.

diff -r 5e9674136340 -r 239d5d98c1bd lisp/mail/sendmail.el
--- a/lisp/mail/sendmail.el	Tue Apr 18 13:04:00 2000 +0000
+++ b/lisp/mail/sendmail.el	Tue Apr 18 13:04:46 2000 +0000
@@ -1079,6 +1079,10 @@
 	  ;; unless we've already taken care of it.
 	  (unless dont-write-the-file
 	    (if (and (file-exists-p (car fcc-list))
+		     ;; Check that the file isn't empty.  We don't
+		     ;; want to insert a newline at the start of an
+		     ;; empty file.
+		     (not (zerop (nth 7 (file-attributes (car fcc-list)))))
 		     (mail-file-babyl-p (car fcc-list)))
 		;; If the file is a Babyl file,
 		;; convert the message to Babyl format.