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

(rmail): When reverting, swap buffers before setting counters. (Bug#2229)

Browse source 
(rmail-revert): Swap buffers before replacing contents.
This commit is contained in:
Glenn Morris 2009-02-14 03:40:39 +00:00
parent f5107fea3e
commit 40f9db320d
2 changed files with 14 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

11
lisp/ChangeLog
View file

@ -1,3 +1,14 @@
2009-02-14 Glenn Morris <rgm@gnu.org>
* mail/rmail.el (rmail): When reverting, swap buffers before setting
counters. (Bug#2229)
(rmail-revert): Swap buffers before replacing contents.
2009-02-14 Ian Eure <ian@digg.com> (tiny change)
* progmodes/sql.el (sql-product-alist, sql-connect-sqlite):
Remove host, user, password options not applicable to SQlite. (Bug#1904)
2009-02-14 Richard M Stallman <rms@gnu.org>
* mail/rmailout.el (rmail-output-body-to-file): Avoid space and colon

4
lisp/mail/rmail.el
View file

@ -846,6 +846,7 @@ If `rmail-display-summary' is non-nil, make a summary for this RMAIL file."
(find-file file-name)
(when (and (verify-visited-file-modtime existed)
(eq major-mode 'rmail-mode))
(rmail-swap-buffers-maybe)
(rmail-set-message-counters)))
;; The mail file is either unchanged or not visited. Visit it.
(switch-to-buffer
@ -1382,7 +1383,8 @@ If so restore the actual mbox message collection."
(let* ((revert-buffer-function (default-value 'revert-buffer-function))
(rmail-enable-multibyte enable-multibyte-characters)
;; See similar code in `rmail'.
(coding-system-for-read (and rmail-enable-multibyte 'raw-text)))
(coding-system-for-read (and rmail-enable-multibyte 'raw-text))
(before-revert-hook 'rmail-swap-buffers-maybe))
;; Call our caller again, but this time it does the default thing.
(when (revert-buffer arg noconfirm)
;; If the user said "yes", and we changed something,