diff options
| author | Richard M. Stallman | 1998-04-22 06:18:02 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 1998-04-22 06:18:02 +0000 |
| commit | 078395abe771887a9efebd62df0f39bf413756d3 (patch) | |
| tree | f9ac13b88e6904092f41e3050c2b3c1c387c3251 /lisp | |
| parent | 35d2d241554de1928235edabc848419cc088e02c (diff) | |
| download | emacs-078395abe771887a9efebd62df0f39bf413756d3.tar.gz emacs-078395abe771887a9efebd62df0f39bf413756d3.zip | |
(rmail): Don't bind enable-local-variables.
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/mail/rmail.el | 13 |
1 files changed, 7 insertions, 6 deletions
diff --git a/lisp/mail/rmail.el b/lisp/mail/rmail.el index d481b8b7918..eabda68d699 100644 --- a/lisp/mail/rmail.el +++ b/lisp/mail/rmail.el | |||
| @@ -494,18 +494,19 @@ If `rmail-display-summary' is non-nil, make a summary for this RMAIL file." | |||
| 494 | run-mail-hook msg-shown) | 494 | run-mail-hook msg-shown) |
| 495 | ;; Like find-file, but in the case where a buffer existed | 495 | ;; Like find-file, but in the case where a buffer existed |
| 496 | ;; and the file was reverted, recompute the message-data. | 496 | ;; and the file was reverted, recompute the message-data. |
| 497 | ;; We used to bind enable-local-variables to nil here, | ||
| 498 | ;; but that should not be needed now that rmail-mode | ||
| 499 | ;; sets it locally to nil. | ||
| 500 | ;; (Binding a variable locally with let is not safe if it has | ||
| 501 | ;; buffer-local bindings.) | ||
| 497 | (if (and existed (not (verify-visited-file-modtime existed))) | 502 | (if (and existed (not (verify-visited-file-modtime existed))) |
| 498 | (progn | 503 | (progn |
| 499 | ;; Don't be confused by apparent local-variables spec | 504 | (find-file file-name) |
| 500 | ;; in the last message in the RMAIL file. | ||
| 501 | (let ((enable-local-variables nil)) | ||
| 502 | (find-file file-name)) | ||
| 503 | (if (and (verify-visited-file-modtime existed) | 505 | (if (and (verify-visited-file-modtime existed) |
| 504 | (eq major-mode 'rmail-mode)) | 506 | (eq major-mode 'rmail-mode)) |
| 505 | (progn (rmail-forget-messages) | 507 | (progn (rmail-forget-messages) |
| 506 | (rmail-set-message-counters)))) | 508 | (rmail-set-message-counters)))) |
| 507 | (let ((enable-local-variables nil)) | 509 | (find-file file-name)) |
| 508 | (find-file file-name))) | ||
| 509 | (if (eq major-mode 'rmail-edit-mode) | 510 | (if (eq major-mode 'rmail-edit-mode) |
| 510 | (error "Exit Rmail Edit mode before getting new mail")) | 511 | (error "Exit Rmail Edit mode before getting new mail")) |
| 511 | (if (and existed (> (buffer-size) 0)) | 512 | (if (and existed (> (buffer-size) 0)) |