diff options
| -rw-r--r-- | lisp/mail/rmail.el | 4 | ||||
| -rw-r--r-- | lisp/mail/sendmail.el | 8 |
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))) |