diff options
| author | Glenn Morris | 2009-02-14 03:40:39 +0000 |
|---|---|---|
| committer | Glenn Morris | 2009-02-14 03:40:39 +0000 |
| commit | 40f9db320dfca6f0330f64539f45d0996c97d234 (patch) | |
| tree | a494d8455cba8a82026a0375ee3691d55861c69a | |
| parent | f5107fea3e890e8641dde9faa0958c8dba2dda1d (diff) | |
| download | emacs-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/ChangeLog | 11 | ||||
| -rw-r--r-- | lisp/mail/rmail.el | 4 |
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 @@ | |||
| 1 | 2009-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 | |||
| 7 | 2009-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 | |||
| 1 | 2009-02-14 Richard M Stallman <rms@gnu.org> | 12 | 2009-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, |