From ff674d0f9933c6db765287e43a59cbf93cbd28f0 Mon Sep 17 00:00:00 2001 From: Chong Yidong Date: Tue, 21 Jul 2009 23:18:32 +0000 Subject: [PATCH] * mail/rmailedit.el (rmail-edit-mode): Set auto-save-include-big-deletions to t. * mail/rmail.el (rmail-variables): Set auto-save-include-big-deletions to t. --- lisp/ChangeLog | 8 ++++++++ lisp/mail/rmail.el | 4 ++++ lisp/mail/rmailedit.el | 4 ++++ 3 files changed, 16 insertions(+) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 67611b40328..ce4f3f0834d 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,11 @@ +2009-07-21 Chong Yidong + + * mail/rmailedit.el (rmail-edit-mode): Set + auto-save-include-big-deletions to t. + + * mail/rmail.el (rmail-variables): Set + auto-save-include-big-deletions to t. + 2009-07-20 Chong Yidong * term/pc-win.el (x-display-name, x-colors) diff --git a/lisp/mail/rmail.el b/lisp/mail/rmail.el index b348495f178..a844bedd1e0 100644 --- a/lisp/mail/rmail.el +++ b/lisp/mail/rmail.el @@ -1410,6 +1410,10 @@ If so restore the actual mbox message collection." ;; Don't let a local variables list in a message cause confusion. (make-local-variable 'local-enable-local-variables) (setq local-enable-local-variables nil) + ;; Don't turn off auto-saving based on the size of the buffer + ;; because that code does not understand buffer-swapping. + (make-local-variable 'auto-save-include-big-deletions) + (setq auto-save-include-big-deletions t) (make-local-variable 'revert-buffer-function) (setq revert-buffer-function 'rmail-revert) (make-local-variable 'font-lock-defaults) diff --git a/lisp/mail/rmailedit.el b/lisp/mail/rmailedit.el index f63e6870a8f..d350c29006b 100644 --- a/lisp/mail/rmailedit.el +++ b/lisp/mail/rmailedit.el @@ -64,6 +64,10 @@ This function runs the hooks `text-mode-hook' and `rmail-edit-mode-hook'. (if (boundp 'mode-line-modified) (setq mode-line-modified (default-value 'mode-line-modified)) (setq mode-line-format (default-value 'mode-line-format))) + ;; Don't turn off auto-saving based on the size of the buffer + ;; because that code does not understand buffer-swapping. + (make-local-variable 'auto-save-include-big-deletions) + (setq auto-save-include-big-deletions t) ;; If someone uses C-x C-s, don't clobber the rmail file (bug#2625). (add-hook 'write-region-annotate-functions 'rmail-write-region-annotate nil t) -- 2.39.5