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

*** empty log message ***

Browse source
This commit is contained in:
Richard M. Stallman 1992-08-19 07:17:26 +00:00
parent c89475dcaa
commit 8defe99b80
2 changed files with 7 additions and 5 deletions
Download patch file Download diff file Expand all files Collapse all files

4
lisp/mail/rmail.el
View file

@ -137,12 +137,12 @@ that file, but does not copy any new mail into the file."
(progn
;; Don't be confused by apparent local-variables spec
;; in the last message in the RMAIL file.
(let ((inhibit-local-variables t))
(let ((enable-local-variables nil))
(find-file file-name))
(if (verify-visited-file-modtime existed)
(progn (rmail-forget-messages)
(rmail-set-message-counters))))
(let ((inhibit-local-variables t))
(let ((enable-local-variables nil))
(find-file file-name)))
(if (and existed (> (buffer-size) 0))
;; Buffer not new and not empty; ensure in proper mode, but that's all.

8
lisp/mail/sendmail.el
View file

@ -123,10 +123,12 @@ so you can edit or delete these lines.")
(insert "BCC: " (user-login-name) "\n"))
(if mail-archive-file-name
(insert "FCC: " mail-archive-file-name "\n"))
(insert mail-header-separator "\n\n")
(insert mail-header-separator "\n")
;; Read the .signature file.
(if mail-signature-file
(insert-file-contents (expand-file-name mail-signature-file)))
(and mail-signature-file
(file-exists-p mail-signature-file)
(progn (insert "\n")
(insert-file-contents (expand-file-name mail-signature-file))))
(goto-char (point-max))
(or (bolp) (newline)))
(if to (goto-char (point-max)))