* files.el (auto-save-mode): If buffer-saved-size is -2, don't clobber it.

* mail/rmail.el (rmail-variables): Set buffer-saved-size to -2.
(rmail-retry-ignored-headers): Add more uninteresting fields.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index f639b1af8fa5f7e13a0d4628b7d83ec0dc4933a3..8cafbe093293864d9aa22b5344f4847a787f98aa 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,11 @@
+2009-07-16  Richard Stallman  <rms@gnu.org>
+
+       * files.el (auto-save-mode): If buffer-saved-size is -2,
+       don't clobber it.
+
+       * mail/rmail.el (rmail-variables): Set buffer-saved-size to -2.
+       (rmail-retry-ignored-headers): Add more uninteresting fields.
+
 2009-07-15  Jari Aalto  <jari.aalto@cante.net>
 
        * net/rcirc.el (rcirc): Use history variables.

diff --git a/lisp/files.el b/lisp/files.el
index 10970aa7d78291ef369fd29009d6736d72a4d6a0..0c4edf63363a30e310dfc9e3c31b4b78b88d635a 100644 (file)
--- a/lisp/files.el
+++ b/lisp/files.el
@@ -4996,7 +4996,7 @@ With prefix argument ARG, turn auto-saving on if positive, else off."
               (make-auto-save-file-name))))
   ;; If -1 was stored here, to temporarily turn off saving,
   ;; turn it back on.
-  (and (< buffer-saved-size 0)
+  (and (= buffer-saved-size -1)
        (setq buffer-saved-size 0))
   (if (interactive-p)
       (message "Auto-save %s (in this buffer)"

diff --git a/lisp/mail/rmail.el b/lisp/mail/rmail.el
index b348495f17890b6a59c418256259d6061b74d005..ac7cbc043c4096f0e0b7678f73a9af13375d4cf0 100644 (file)
--- a/lisp/mail/rmail.el
+++ b/lisp/mail/rmail.el
@@ -371,7 +371,7 @@ If nil, display all header fields except those matched by
   :group 'rmail-headers)
 
 ;;;###autoload
-(defcustom rmail-retry-ignored-headers "^x-authentication-warning:\\|content-type:\\|content-transfer-encoding:\\|mime-version:"
+(defcustom rmail-retry-ignored-headers "^x-authentication-warning:\\|^x-detected-operating-system:\\|^x-spam[-a-z]*:\\|content-type:\\|content-transfer-encoding:\\|mime-version:"
   "Headers that should be stripped when retrying a failed message."
   :type '(choice regexp (const nil :tag "None"))
   :group 'rmail-headers
@@ -1410,6 +1410,9 @@ 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.
+  (setq buffer-saved-size -2)
   (make-local-variable 'revert-buffer-function)
   (setq revert-buffer-function 'rmail-revert)
   (make-local-variable 'font-lock-defaults)