diff options
| author | Karl Heuer <[email protected]> | 1994-02-08 22:25:35 +0000 |
|---|---|---|
| committer | Karl Heuer <[email protected]> | 1994-02-08 22:25:35 +0000 |
| commit | a4b340c510946ba5755e33e50b370bd23e34bdfa (patch) | |
| tree | b661897c2b4d6c4ee213c12d2745fe942a0e9d64 /lisp/mail/rmail.el | |
| parent | 2f2ddd1e4a3fdfbd24e54ca50970888a5ffce53b (diff) | |
(rmail-variables): Make local variables permanent, so the user can safely
change major modes during an edit.
Diffstat (limited to 'lisp/mail/rmail.el')
| -rw-r--r-- | lisp/mail/rmail.el | 19 |
1 files changed, 18 insertions, 1 deletions
diff --git a/lisp/mail/rmail.el b/lisp/mail/rmail.el index 7d6e0490d9..3641f47067 100644 --- a/lisp/mail/rmail.el +++ b/lisp/mail/rmail.el @@ -580,7 +580,24 @@ Instead, these commands are available: (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) |