* 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.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 67611b40328a7c0c520b28e8590cb080e82ea977..ce4f3f0834d2df3791f7a4e6908696fc24bdad81 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,11 @@
+2009-07-21  Chong Yidong  <cyd@stupidchicken.com>
+
+       * 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  <cyd@stupidchicken.com>
 
        * term/pc-win.el (x-display-name, x-colors)

diff --git a/lisp/mail/rmail.el b/lisp/mail/rmail.el
index b348495f17890b6a59c418256259d6061b74d005..a844bedd1e045886698f5bc38852199fe1e711f9 100644 (file)
--- 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 f63e6870a8f282e7e8e45faef7ff5576a6fd3815..d350c29006b49ee4fc179925ba02cbfe00d3c7d9 100644 (file)
--- 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)