From: Karl Heuer <kwzh@gnu.org>
Date: Tue, 8 Feb 1994 22:25:35 +0000 (+0000)
Subject: (rmail-variables): Make local variables permanent, so the user can safely
X-Git-Tag: emacs-19.34~10001
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=a4b340c510946ba5755e33e50b370bd23e34bdfa;p=emacs.git

(rmail-variables): Make local variables permanent, so the user can safely
change major modes during an edit.
---

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)