diff options
| -rw-r--r-- | lisp/mail/sendmail.el | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/lisp/mail/sendmail.el b/lisp/mail/sendmail.el index d12d77ed2c8..9597b9269b6 100644 --- a/lisp/mail/sendmail.el +++ b/lisp/mail/sendmail.el | |||
| @@ -379,7 +379,8 @@ the user from the mailer." | |||
| 379 | (% abs 60)))) | 379 | (% abs 60)))) |
| 380 | (set-buffer tembuf) | 380 | (set-buffer tembuf) |
| 381 | (erase-buffer) | 381 | (erase-buffer) |
| 382 | (insert "From " (user-login-name) " " | 382 | ;; This initial newline is written out if the fcc file already exists. |
| 383 | (insert "\nFrom " (user-login-name) " " | ||
| 383 | (current-time-string time) "\n") | 384 | (current-time-string time) "\n") |
| 384 | ;; Insert the time zone before the year. | 385 | ;; Insert the time zone before the year. |
| 385 | (forward-char -1) | 386 | (forward-char -1) |
| @@ -433,6 +434,7 @@ the user from the mailer." | |||
| 433 | ;; Else append to the file directly. | 434 | ;; Else append to the file directly. |
| 434 | (write-region | 435 | (write-region |
| 435 | ;; Include a blank line before if file already exists. | 436 | ;; Include a blank line before if file already exists. |
| 437 | |||
| 436 | (if (file-exists-p (car fcc-list)) (point-min) (1+ (point-min))) | 438 | (if (file-exists-p (car fcc-list)) (point-min) (1+ (point-min))) |
| 437 | (point-max) (car fcc-list) t))) | 439 | (point-max) (car fcc-list) t))) |
| 438 | (setq fcc-list (cdr fcc-list)))) | 440 | (setq fcc-list (cdr fcc-list)))) |