Commit 6016579d authored by Richard M. Stallman's avatar Richard M. Stallman
Browse files

(rmail-variables): Don't add any permanent-local props.

Don't make rmail-last-file local.
parent 6c65d1ec
......@@ -584,7 +584,6 @@ Instead, these commands are available:
(make-local-variable 'file-precious-flag)
(setq file-precious-flag t)
(make-local-variable 'rmail-message-vector)
(make-local-variable 'rmail-last-file)
(make-local-variable 'rmail-inbox-list)
(setq rmail-inbox-list (rmail-parse-file-inboxes))
;; Provide default set of inboxes for primary mail file ~/RMAIL.
......@@ -599,24 +598,7 @@ Instead, these commands are available:
(user-login-name)))))))
(make-local-variable 'rmail-keywords)
;; this gets generated as needed
(setq rmail-keywords nil)
;; Make everything permanent, in case the user switches major modes
;; during an edit.
(put 'revert-buffer-function 'permanent-local t)
(put 'rmail-last-label 'permanent-local t)
(put 'rmail-last-regexp 'permanent-local t)
(put 'rmail-deleted-vector 'permanent-local t)
(put 'rmail-summary-buffer 'permanent-local t)
(put 'rmail-summary-vector 'permanent-local t)
(put 'rmail-current-message 'permanent-local t)
(put 'rmail-total-messages 'permanent-local t)
(put 'require-final-newline 'permanent-local t)
(put 'version-control 'permanent-local t)
(put 'file-precious-flag 'permanent-local t)
(put 'rmail-message-vector 'permanent-local t)
(put 'rmail-last-file 'permanent-local t)
(put 'rmail-inbox-list 'permanent-local t)
(put 'rmail-keywords 'permanent-local t))
(setq rmail-keywords nil))
;; Handle M-x revert-buffer done in an rmail-mode buffer.
(defun rmail-revert (arg noconfirm)
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment