Mercurial > emacs
changeset 5850:dc5249a23957
(rmail-variables): Make local variables permanent, so the user can safely
change major modes during an edit.
| author | Karl Heuer <kwzh@gnu.org> |
|---|---|
| date | Tue, 08 Feb 1994 22:25:35 +0000 |
| parents | d0fc9207705a |
| children | bdb049c20e39 |
| files | lisp/mail/rmail.el |
| diffstat | 1 files changed, 18 insertions(+), 1 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/mail/rmail.el Tue Feb 08 18:22:09 1994 +0000 +++ b/lisp/mail/rmail.el Tue Feb 08 22:25:35 1994 +0000 @@ -580,7 +580,24 @@ (user-original-login-name))))))) (make-local-variable 'rmail-keywords) ;; this gets generated as needed - (setq rmail-keywords nil)) + (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)) ;; Handle M-x revert-buffer done in an rmail-mode buffer. (defun rmail-revert (arg noconfirm)