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

Don't make rmail-last-file local.

diff --git a/lisp/mail/rmail.el b/lisp/mail/rmail.el
index e52df3928739238d15be7c54f34d6fca3bdfd441..2a5297c87a5db29a08d383bbafbafeae7bc0abf7 100644 (file)
--- a/lisp/mail/rmail.el
+++ b/lisp/mail/rmail.el
@@ -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)