(mail-do-fcc): Don't write a newline before the text.

1 files changed, 1 insertions, 4 deletions

diff --git a/lisp/mail/sendmail.el b/lisp/mail/sendmail.el
index e0fa000fef4..5b5606cc631 100644
--- a/lisp/mail/sendmail.el
+++ b/lisp/mail/sendmail.el
@@ -547,10 +547,7 @@ the user from the mailer."
                       (if max (narrow-to-region (point-min) max))))))
             ;; Else append to the file directly.
             (write-region
-             ;; Include a blank line before if file already exists.
-
-             (if (file-exists-p (car fcc-list)) (point-min) (1+ (point-min)))
-             (point-max) (car fcc-list) t)))
+             (1+ (point-min)) (point-max) (car fcc-list) t)))
         (setq fcc-list (cdr fcc-list))))
     (kill-buffer tembuf)))