Commit 8defe99b authored by Richard M. Stallman's avatar Richard M. Stallman
Browse files

*** empty log message ***

parent c89475dc
......@@ -137,12 +137,12 @@ that file, but does not copy any new mail into the file."
;; 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)
(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.
......@@ -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)))
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