From fdc1827fdb9bec87fca8bb8cd17e1a3aa9c63518 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Wed, 2 Mar 1994 04:23:49 +0000 Subject: [PATCH] (mail-do-fcc): Don't write a newline before the text. --- lisp/mail/sendmail.el | 5 +---- 1 file changed, 1 insertion(+), 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))) -- 2.39.5