diff options
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/mail/sendmail.el | 5 |
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." | |||
| 547 | (if max (narrow-to-region (point-min) max)))))) | 547 | (if max (narrow-to-region (point-min) max)))))) |
| 548 | ;; Else append to the file directly. | 548 | ;; Else append to the file directly. |
| 549 | (write-region | 549 | (write-region |
| 550 | ;; Include a blank line before if file already exists. | 550 | (1+ (point-min)) (point-max) (car fcc-list) t))) |
| 551 | |||
| 552 | (if (file-exists-p (car fcc-list)) (point-min) (1+ (point-min))) | ||
| 553 | (point-max) (car fcc-list) t))) | ||
| 554 | (setq fcc-list (cdr fcc-list)))) | 551 | (setq fcc-list (cdr fcc-list)))) |
| 555 | (kill-buffer tembuf))) | 552 | (kill-buffer tembuf))) |
| 556 | 553 | ||