diff options
| author | Richard M. Stallman <rms@gnu.org> | 1998-06-13 06:01:41 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 1998-06-13 06:01:41 +0000 |
| commit | 386a175f2739e1982708edde9b67f8051e4fc349 (patch) | |
| tree | 134e63861e74a222c52881e8896ead5989abf281 | |
| parent | 31ab81a52bfbfd62740b5f514d9f169c35a8c692 (diff) | |
| download | emacs-386a175f2739e1982708edde9b67f8051e4fc349.tar.gz | |
(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." (eq major-mode 'rmail-mode)) (progn (rmail-forget-messages) (rmail-set-message-counters)))) - (let ((enable-local-variables nil)) - (find-file file-name))) + (switch-to-buffer + (let ((enable-local-variables nil)) + (find-file-noselect file-name)))) (if (eq major-mode 'rmail-edit-mode) (error "Exit Rmail Edit mode before getting new mail")) (if (and existed (> (buffer-size) 0)) @@ -942,8 +943,8 @@ Instead, these commands are available: (setq save-buffer-coding-system (or buffer-file-coding-system 'undecided)) (setq buffer-file-coding-system nil)) ;; Don't let a local variables list in a message cause confusion. - (make-local-variable 'enable-local-variables) - (setq enable-local-variables nil) + (make-local-variable 'local-enable-local-variables) + (setq local-enable-local-variables nil) (make-local-variable 'revert-buffer-function) (setq revert-buffer-function 'rmail-revert) (make-local-variable 'font-lock-defaults) |