Github/emacs
2
0
Fork 1
mirror of git://git.sv.gnu.org/emacs.git synced 2026-02-17 01:34:21 +00:00
Code Issues Projects Releases Packages Wiki Activity

(rmail): Don't bind enable-local-variables.

Browse source
This commit is contained in:
Richard M. Stallman 1998-04-22 06:18:02 +00:00
parent 35d2d24155
commit 078395abe7
1 changed files with 7 additions and 6 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

13
lisp/mail/rmail.el
View file

@ -494,18 +494,19 @@ If `rmail-display-summary' is non-nil, make a summary for this RMAIL file."
run-mail-hook msg-shown)
;; Like find-file, but in the case where a buffer existed
;; and the file was reverted, recompute the message-data.
;; We used to bind enable-local-variables to nil here,
;; but that should not be needed now that rmail-mode
;; sets it locally to nil.
;; (Binding a variable locally with let is not safe if it has
;; buffer-local bindings.)
(if (and existed (not (verify-visited-file-modtime existed)))
(progn
;; Don't be confused by apparent local-variables spec
;; in the last message in the RMAIL file.
(let ((enable-local-variables nil))
(find-file file-name))
(find-file file-name)
(if (and (verify-visited-file-modtime existed)
(eq major-mode 'rmail-mode))
(progn (rmail-forget-messages)
(rmail-set-message-counters))))
(let ((enable-local-variables nil))
(find-file file-name)))
(find-file file-name))
(if (eq major-mode 'rmail-edit-mode)
(error "Exit Rmail Edit mode before getting new mail"))
(if (and existed (> (buffer-size) 0))