aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rw-r--r--lisp/mail/rmail.el4
-rw-r--r--lisp/mail/sendmail.el8
2 files changed, 7 insertions, 5 deletions
diff --git a/lisp/mail/rmail.el b/lisp/mail/rmail.el
index f9cd3914770..884dbe634ee 100644
--- a/lisp/mail/rmail.el
+++ b/lisp/mail/rmail.el
@@ -137,12 +137,12 @@ that file, but does not copy any new mail into the file."
137 (progn 137 (progn
138 ;; Don't be confused by apparent local-variables spec 138 ;; Don't be confused by apparent local-variables spec
139 ;; in the last message in the RMAIL file. 139 ;; in the last message in the RMAIL file.
140 (let ((inhibit-local-variables t)) 140 (let ((enable-local-variables nil))
141 (find-file file-name)) 141 (find-file file-name))
142 (if (verify-visited-file-modtime existed) 142 (if (verify-visited-file-modtime existed)
143 (progn (rmail-forget-messages) 143 (progn (rmail-forget-messages)
144 (rmail-set-message-counters)))) 144 (rmail-set-message-counters))))
145 (let ((inhibit-local-variables t)) 145 (let ((enable-local-variables nil))
146 (find-file file-name))) 146 (find-file file-name)))
147 (if (and existed (> (buffer-size) 0)) 147 (if (and existed (> (buffer-size) 0))
148 ;; Buffer not new and not empty; ensure in proper mode, but that's all. 148 ;; Buffer not new and not empty; ensure in proper mode, but that's all.
diff --git a/lisp/mail/sendmail.el b/lisp/mail/sendmail.el
index 54d04e79506..5f5420a073c 100644
--- a/lisp/mail/sendmail.el
+++ b/lisp/mail/sendmail.el
@@ -123,10 +123,12 @@ so you can edit or delete these lines.")
123 (insert "BCC: " (user-login-name) "\n")) 123 (insert "BCC: " (user-login-name) "\n"))
124 (if mail-archive-file-name 124 (if mail-archive-file-name
125 (insert "FCC: " mail-archive-file-name "\n")) 125 (insert "FCC: " mail-archive-file-name "\n"))
126 (insert mail-header-separator "\n\n") 126 (insert mail-header-separator "\n")
127 ;; Read the .signature file. 127 ;; Read the .signature file.
128 (if mail-signature-file 128 (and mail-signature-file
129 (insert-file-contents (expand-file-name mail-signature-file))) 129 (file-exists-p mail-signature-file)
130 (progn (insert "\n")
131 (insert-file-contents (expand-file-name mail-signature-file))))
130 (goto-char (point-max)) 132 (goto-char (point-max))
131 (or (bolp) (newline))) 133 (or (bolp) (newline)))
132 (if to (goto-char (point-max))) 134 (if to (goto-char (point-max)))