mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-18 11:50:38 -08:00
Code Issues Projects Releases Wiki Activity

(rmail-expunge): Update summary buffer even if NO-SHOW.

Browse source
This commit is contained in:
Richard M. Stallman 2009-03-22 14:12:47 +00:00
parent 9f995a76b8
commit 551fd0c448
2 changed files with 12 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

4
lisp/ChangeLog
View file

@ -1,3 +1,7 @@
2009-03-22 Richard M Stallman <rms@gnu.org>
* mail/rmail.el (rmail-expunge): Update summary buffer even if NO-SHOW.
2009-03-21 Jari Aalto <jari.aalto@cante.net> 2009-03-21 Jari Aalto <jari.aalto@cante.net>
* time.el (display-time-default-load-average): Doc fix. * time.el (display-time-default-load-average): Doc fix.

10
lisp/mail/rmail.el
View file

@ -3265,9 +3265,15 @@ See also user-option `rmail-confirm-expunge'."
(interactive) (interactive)
(when (rmail-expunge-confirmed) (when (rmail-expunge-confirmed)
(let ((was-deleted (rmail-message-deleted-p rmail-current-message)) (let ((was-deleted (rmail-message-deleted-p rmail-current-message))
(was-swapped (rmail-buffers-swapped-p))) (was-swapped (rmail-buffers-swapped-p))
(total rmail-total-messages))
(rmail-only-expunge t) (rmail-only-expunge t)
(unless dont-show (if dont-show
;; Do update the summary buffer, if any.
(when (rmail-summary-exists)
(with-current-buffer rmail-summary-buffer
(let ((rmail-total-messages total))
(rmail-update-summary))))
(if (rmail-summary-exists) (if (rmail-summary-exists)
(rmail-select-summary (rmail-update-summary)) (rmail-select-summary (rmail-update-summary))
;; If we expunged the current message, a new one is current now, ;; If we expunged the current message, a new one is current now,