Mercurial > emacs
changeset 102021:c7da4634b3a9
(rmail): When reverting, swap buffers before setting counters. (Bug#2229)
(rmail-revert): Swap buffers before replacing contents.
| author | Glenn Morris <rgm@gnu.org> |
|---|---|
| date | Sat, 14 Feb 2009 03:40:39 +0000 |
| parents | 69ed113ac824 |
| children | 34e51f3bcf52 |
| files | lisp/ChangeLog lisp/mail/rmail.el |
| diffstat | 2 files changed, 14 insertions(+), 1 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/ChangeLog Sat Feb 14 03:38:00 2009 +0000 +++ b/lisp/ChangeLog Sat Feb 14 03:40:39 2009 +0000 @@ -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
--- a/lisp/mail/rmail.el Sat Feb 14 03:38:00 2009 +0000 +++ b/lisp/mail/rmail.el Sat Feb 14 03:40:39 2009 +0000 @@ -846,6 +846,7 @@ (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 @@ (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,