procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

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

Browse source 
* mail/rmail.el (rmail-variables): Set buffer-saved-size to -2.
(rmail-retry-ignored-headers): Add more uninteresting fields.
This commit is contained in:
Richard M. Stallman 2009-07-16 01:52:32 +00:00
parent 4be941e3d0
commit 7a907299a2
3 changed files with 13 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

8
lisp/ChangeLog
View file

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

2
lisp/files.el
View file

@ -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)"

5
lisp/mail/rmail.el
View file

@ -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)