Commit fdc1827f authored by Richard M. Stallman's avatar Richard M. Stallman

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

parent b7c49376
...@@ -547,10 +547,7 @@ the user from the mailer." ...@@ -547,10 +547,7 @@ the user from the mailer."
(if max (narrow-to-region (point-min) max)))))) (if max (narrow-to-region (point-min) max))))))
;; Else append to the file directly. ;; Else append to the file directly.
(write-region (write-region
;; Include a blank line before if file already exists. (1+ (point-min)) (point-max) (car fcc-list) t)))
(if (file-exists-p (car fcc-list)) (point-min) (1+ (point-min)))
(point-max) (car fcc-list) t)))
(setq fcc-list (cdr fcc-list)))) (setq fcc-list (cdr fcc-list))))
(kill-buffer tembuf))) (kill-buffer tembuf)))
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment