Mercurial > emacs
changeset 7563:4b15aee0be13
(rmail-variables): Don't add any permanent-local props.
Don't make rmail-last-file local.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Thu, 19 May 1994 20:48:32 +0000 |
| parents | c2bb49d403ab |
| children | d5d803ffff27 |
| files | lisp/mail/rmail.el |
| diffstat | 1 files changed, 1 insertions(+), 19 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/mail/rmail.el Thu May 19 20:46:24 1994 +0000 +++ b/lisp/mail/rmail.el Thu May 19 20:48:32 1994 +0000 @@ -584,7 +584,6 @@ (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 @@ (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)