diff options
| -rw-r--r-- | lisp/mail/rmail.el | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/lisp/mail/rmail.el b/lisp/mail/rmail.el index f2ecae58097..febdd3ce587 100644 --- a/lisp/mail/rmail.el +++ b/lisp/mail/rmail.el | |||
| @@ -459,12 +459,14 @@ If `rmail-display-summary' is non-nil, make a summary for this RMAIL file." | |||
| 459 | (progn | 459 | (progn |
| 460 | ;; Don't be confused by apparent local-variables spec | 460 | ;; Don't be confused by apparent local-variables spec |
| 461 | ;; in the last message in the RMAIL file. | 461 | ;; in the last message in the RMAIL file. |
| 462 | (find-file file-name) | 462 | (let ((enable-local-variables nil)) |
| 463 | (find-file file-name)) | ||
| 463 | (if (and (verify-visited-file-modtime existed) | 464 | (if (and (verify-visited-file-modtime existed) |
| 464 | (eq major-mode 'rmail-mode)) | 465 | (eq major-mode 'rmail-mode)) |
| 465 | (progn (rmail-forget-messages) | 466 | (progn (rmail-forget-messages) |
| 466 | (rmail-set-message-counters)))) | 467 | (rmail-set-message-counters)))) |
| 467 | (find-file file-name)) | 468 | (let ((enable-local-variables nil)) |
| 469 | (find-file file-name))) | ||
| 468 | (if (eq major-mode 'rmail-edit-mode) | 470 | (if (eq major-mode 'rmail-edit-mode) |
| 469 | (error "Exit Rmail Edit mode before getting new mail")) | 471 | (error "Exit Rmail Edit mode before getting new mail")) |
| 470 | (if (and existed (> (buffer-size) 0)) | 472 | (if (and existed (> (buffer-size) 0)) |