(mail-do-fcc): Prevent inserting a newline

at the start of an existing but empty folder.

1 files changed, 4 insertions, 0 deletions

diff --git a/lisp/mail/sendmail.el b/lisp/mail/sendmail.el
index 9922fdae2f..d5c0cb576e 100644
--- a/lisp/mail/sendmail.el
+++ b/lisp/mail/sendmail.el
@@ -1079,6 +1079,10 @@ See also the function `select-message-coding-system'.")
 	  ;; 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.