aboutsummaryrefslogtreecommitdiffstats
path: root/lisp
diff options
context:
space:
mode:
authorRichard M. Stallman1998-04-22 06:18:02 +0000
committerRichard M. Stallman1998-04-22 06:18:02 +0000
commit078395abe771887a9efebd62df0f39bf413756d3 (patch)
treef9ac13b88e6904092f41e3050c2b3c1c387c3251 /lisp
parent35d2d241554de1928235edabc848419cc088e02c (diff)
downloademacs-078395abe771887a9efebd62df0f39bf413756d3.tar.gz
emacs-078395abe771887a9efebd62df0f39bf413756d3.zip
(rmail): Don't bind enable-local-variables.
Diffstat (limited to 'lisp')
-rw-r--r--lisp/mail/rmail.el13
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))