aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorRichard M. Stallman1998-06-13 06:01:41 +0000
committerRichard M. Stallman1998-06-13 06:01:41 +0000
commit4cc4a962cadab43436df492f529a6b9b569a0b89 (patch)
tree6aba0ef62a74698434606b47c0040e19b0862d38
parent678b159e98ccad4066bdae675bd5b7cc168efd1e (diff)
downloademacs-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.el9
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)