diff options
| author | Richard M. Stallman | 1998-06-13 06:01:41 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 1998-06-13 06:01:41 +0000 |
| commit | 4cc4a962cadab43436df492f529a6b9b569a0b89 (patch) | |
| tree | 6aba0ef62a74698434606b47c0040e19b0862d38 | |
| parent | 678b159e98ccad4066bdae675bd5b7cc168efd1e (diff) | |
| download | emacs-4cc4a962cadab43436df492f529a6b9b569a0b89.tar.gz emacs-4cc4a962cadab43436df492f529a6b9b569a0b89.zip | |
(rmail-variables): Locally bind
local-enable-local-variables, not enable-local-variables.
(rmail): Don't switch buffers inside the binding of
enable-local-variables.
| -rw-r--r-- | lisp/mail/rmail.el | 9 |
1 files changed, 5 insertions, 4 deletions
diff --git a/lisp/mail/rmail.el b/lisp/mail/rmail.el index 6a21f0c7f80..d73181cde29 100644 --- a/lisp/mail/rmail.el +++ b/lisp/mail/rmail.el | |||
| @@ -511,8 +511,9 @@ If `rmail-display-summary' is non-nil, make a summary for this RMAIL file." | |||
| 511 | (eq major-mode 'rmail-mode)) | 511 | (eq major-mode 'rmail-mode)) |
| 512 | (progn (rmail-forget-messages) | 512 | (progn (rmail-forget-messages) |
| 513 | (rmail-set-message-counters)))) | 513 | (rmail-set-message-counters)))) |
| 514 | (let ((enable-local-variables nil)) | 514 | (switch-to-buffer |
| 515 | (find-file file-name))) | 515 | (let ((enable-local-variables nil)) |
| 516 | (find-file-noselect file-name)))) | ||
| 516 | (if (eq major-mode 'rmail-edit-mode) | 517 | (if (eq major-mode 'rmail-edit-mode) |
| 517 | (error "Exit Rmail Edit mode before getting new mail")) | 518 | (error "Exit Rmail Edit mode before getting new mail")) |
| 518 | (if (and existed (> (buffer-size) 0)) | 519 | (if (and existed (> (buffer-size) 0)) |
| @@ -942,8 +943,8 @@ Instead, these commands are available: | |||
| 942 | (setq save-buffer-coding-system (or buffer-file-coding-system 'undecided)) | 943 | (setq save-buffer-coding-system (or buffer-file-coding-system 'undecided)) |
| 943 | (setq buffer-file-coding-system nil)) | 944 | (setq buffer-file-coding-system nil)) |
| 944 | ;; Don't let a local variables list in a message cause confusion. | 945 | ;; Don't let a local variables list in a message cause confusion. |
| 945 | (make-local-variable 'enable-local-variables) | 946 | (make-local-variable 'local-enable-local-variables) |
| 946 | (setq enable-local-variables nil) | 947 | (setq local-enable-local-variables nil) |
| 947 | (make-local-variable 'revert-buffer-function) | 948 | (make-local-variable 'revert-buffer-function) |
| 948 | (setq revert-buffer-function 'rmail-revert) | 949 | (setq revert-buffer-function 'rmail-revert) |
| 949 | (make-local-variable 'font-lock-defaults) | 950 | (make-local-variable 'font-lock-defaults) |