From: Richard M. Stallman <rms@gnu.org>
Date: Wed, 2 Mar 1994 04:23:49 +0000 (+0000)
Subject: (mail-do-fcc): Don't write a newline before the text.
X-Git-Tag: emacs-19.34~9716
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=fdc1827fdb9bec87fca8bb8cd17e1a3aa9c63518;p=emacs.git

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

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