procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

(rmail-expunge): Without DONT-SHOW, show the message even after

Browse source 
updating summary.
This commit is contained in:
Richard M. Stallman 2009-03-22 14:51:17 +00:00
parent 551fd0c448
commit 8882002ae5
2 changed files with 19 additions and 16 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
lisp/ChangeLog
View file

@ -1,6 +1,8 @@
2009-03-22 Richard M Stallman <rms@gnu.org>
* mail/rmail.el (rmail-expunge): Update summary buffer even if NO-SHOW.
* mail/rmail.el (rmail-expunge): Update summary buffer even if DONT-SHOW.
(rmail-expunge): Without DONT-SHOW, show the message even after
updating summary.
2009-03-21 Jari Aalto <jari.aalto@cante.net>

31
lisp/mail/rmail.el
View file

@ -3265,25 +3265,26 @@ See also user-option `rmail-confirm-expunge'."
(interactive)
(when (rmail-expunge-confirmed)
(let ((was-deleted (rmail-message-deleted-p rmail-current-message))
(was-swapped (rmail-buffers-swapped-p))
(total rmail-total-messages))
(was-swapped (rmail-buffers-swapped-p)))
(rmail-only-expunge t)
(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))))
(let ((total rmail-total-messages))
(when (rmail-summary-exists)
(with-current-buffer rmail-summary-buffer
(let ((rmail-total-messages total))
(rmail-update-summary)))))
;; Update the summary and show it.
(if (rmail-summary-exists)
(rmail-select-summary (rmail-update-summary))
;; If we expunged the current message, a new one is current now,
;; so show it. If we weren't showing a message, show it.
(if (or was-deleted (not was-swapped))
(rmail-show-message-1 rmail-current-message)
;; Show the same message that was being shown before.
(rmail-display-labels)
(rmail-swap-buffers)
(setq rmail-buffer-swapped t)))))))
(rmail-select-summary (rmail-update-summary)))
;; If we expunged the current message, a new one is current now,
;; so show it. If we weren't showing a message, show it.
(if (or was-deleted (not was-swapped))
(rmail-show-message-1 rmail-current-message)
;; Show the same message that was being shown before.
(rmail-display-labels)
(rmail-swap-buffers)
(setq rmail-buffer-swapped t))))))
;;;; *** Rmail Mailing Commands ***