aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorGlenn Morris2009-02-14 03:40:39 +0000
committerGlenn Morris2009-02-14 03:40:39 +0000
commit40f9db320dfca6f0330f64539f45d0996c97d234 (patch)
treea494d8455cba8a82026a0375ee3691d55861c69a
parentf5107fea3e890e8641dde9faa0958c8dba2dda1d (diff)
downloademacs-40f9db320dfca6f0330f64539f45d0996c97d234.tar.gz
emacs-40f9db320dfca6f0330f64539f45d0996c97d234.zip
(rmail): When reverting, swap buffers before setting counters. (Bug#2229)
(rmail-revert): Swap buffers before replacing contents.
-rw-r--r--lisp/ChangeLog11
-rw-r--r--lisp/mail/rmail.el4
2 files changed, 14 insertions, 1 deletions
diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index b33c1b8d062..c045edb54ff 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,14 @@
12009-02-14 Glenn Morris <rgm@gnu.org>
2
3 * mail/rmail.el (rmail): When reverting, swap buffers before setting
4 counters. (Bug#2229)
5 (rmail-revert): Swap buffers before replacing contents.
6
72009-02-14 Ian Eure <ian@digg.com> (tiny change)
8
9 * progmodes/sql.el (sql-product-alist, sql-connect-sqlite):
10 Remove host, user, password options not applicable to SQlite. (Bug#1904)
11
12009-02-14 Richard M Stallman <rms@gnu.org> 122009-02-14 Richard M Stallman <rms@gnu.org>
2 13
3 * mail/rmailout.el (rmail-output-body-to-file): Avoid space and colon 14 * mail/rmailout.el (rmail-output-body-to-file): Avoid space and colon
diff --git a/lisp/mail/rmail.el b/lisp/mail/rmail.el
index 4c234cab0d3..9ba9accd0d3 100644
--- a/lisp/mail/rmail.el
+++ b/lisp/mail/rmail.el
@@ -846,6 +846,7 @@ If `rmail-display-summary' is non-nil, make a summary for this RMAIL file."
846 (find-file file-name) 846 (find-file file-name)
847 (when (and (verify-visited-file-modtime existed) 847 (when (and (verify-visited-file-modtime existed)
848 (eq major-mode 'rmail-mode)) 848 (eq major-mode 'rmail-mode))
849 (rmail-swap-buffers-maybe)
849 (rmail-set-message-counters))) 850 (rmail-set-message-counters)))
850 ;; The mail file is either unchanged or not visited. Visit it. 851 ;; The mail file is either unchanged or not visited. Visit it.
851 (switch-to-buffer 852 (switch-to-buffer
@@ -1382,7 +1383,8 @@ If so restore the actual mbox message collection."
1382 (let* ((revert-buffer-function (default-value 'revert-buffer-function)) 1383 (let* ((revert-buffer-function (default-value 'revert-buffer-function))
1383 (rmail-enable-multibyte enable-multibyte-characters) 1384 (rmail-enable-multibyte enable-multibyte-characters)
1384 ;; See similar code in `rmail'. 1385 ;; See similar code in `rmail'.
1385 (coding-system-for-read (and rmail-enable-multibyte 'raw-text))) 1386 (coding-system-for-read (and rmail-enable-multibyte 'raw-text))
1387 (before-revert-hook 'rmail-swap-buffers-maybe))
1386 ;; Call our caller again, but this time it does the default thing. 1388 ;; Call our caller again, but this time it does the default thing.
1387 (when (revert-buffer arg noconfirm) 1389 (when (revert-buffer arg noconfirm)
1388 ;; If the user said "yes", and we changed something, 1390 ;; If the user said "yes", and we changed something,