# HG changeset patch
# User Glenn Morris <rgm@gnu.org>
# Date 1234582839 0
# Node ID c7da4634b3a9da1810a6b98ff559323263b6d25a
# Parent  69ed113ac824167f00eb4b2d4b73d67c95aa3c85
(rmail): When reverting, swap buffers before setting counters.  (Bug#2229)
(rmail-revert): Swap buffers before replacing contents.

diff -r 69ed113ac824 -r c7da4634b3a9 lisp/ChangeLog
--- 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
diff -r 69ed113ac824 -r c7da4634b3a9 lisp/mail/rmail.el
--- 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,