From a4b340c510946ba5755e33e50b370bd23e34bdfa Mon Sep 17 00:00:00 2001 From: Karl Heuer Date: Tue, 8 Feb 1994 22:25:35 +0000 Subject: [PATCH] (rmail-variables): Make local variables permanent, so the user can safely change major modes during an edit. --- lisp/mail/rmail.el | 19 ++++++++++++++++++- 1 file changed, 18 insertions(+), 1 deletion(-) diff --git a/lisp/mail/rmail.el b/lisp/mail/rmail.el index 7d6e0490d97..3641f470673 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) -- 2.39.5