mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-01-30 04:10:54 -08:00
Code Issues Projects Releases Wiki Activity

(mail-do-fcc): Put back the newline at the start

Browse source 
of the fcc temp buffer.  It got lost somewhere.
This commit is contained in:
Richard M. Stallman 1993-05-31 04:21:15 +00:00
parent ef194aa8e4
commit fc23ca96e6
1 changed files with 3 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

4
lisp/mail/sendmail.el
View file

@ -379,7 +379,8 @@ the user from the mailer."
(% abs 60))))
(set-buffer tembuf)
(erase-buffer)
(insert "From " (user-login-name) " "
;; This initial newline is written out if the fcc file already exists.
(insert "\nFrom " (user-login-name) " "
(current-time-string time) "\n")
;; Insert the time zone before the year.
(forward-char -1)
@ -433,6 +434,7 @@ the user from the mailer."
;; 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)))
(setq fcc-list (cdr fcc-list))))