summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorRichard M. Stallman <rms@gnu.org>1994-05-19 20:48:32 +0000
committerRichard M. Stallman <rms@gnu.org>1994-05-19 20:48:32 +0000
commit6016579d519c7a50b498e56774882356d0ee20aa (patch)
tree848caca66f3c4e370b056b236aa130ad8a2206d8
parent6c65d1ec438691e57d335333b1d5bec7cd482191 (diff)
downloademacs-6016579d519c7a50b498e56774882356d0ee20aa.tar.gz
(rmail-variables): Don't add any permanent-local props.
Don't make rmail-last-file local.
-rw-r--r--lisp/mail/rmail.el20
1 files changed, 1 insertions, 19 deletions
diff --git a/lisp/mail/rmail.el b/lisp/mail/rmail.el
index e52df392873..2a5297c87a5 100644
--- 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)