[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] emacs/lisp/mail rmail.el
From: |
Richard M. Stallman |
Subject: |
[Emacs-diffs] emacs/lisp/mail rmail.el |
Date: |
Sun, 22 Mar 2009 14:12:34 +0000 |
CVSROOT: /cvsroot/emacs
Module name: emacs
Changes by: Richard M. Stallman <rms> 09/03/22 14:12:34
Modified files:
lisp/mail : rmail.el
Log message:
(rmail-expunge): Update summary buffer even if NO-SHOW.
CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/mail/rmail.el?cvsroot=emacs&r1=1.528&r2=1.529
Patches:
Index: rmail.el
===================================================================
RCS file: /cvsroot/emacs/emacs/lisp/mail/rmail.el,v
retrieving revision 1.528
retrieving revision 1.529
diff -u -b -r1.528 -r1.529
--- rmail.el 19 Mar 2009 06:20:35 -0000 1.528
+++ rmail.el 22 Mar 2009 14:12:34 -0000 1.529
@@ -3265,9 +3265,15 @@
(interactive)
(when (rmail-expunge-confirmed)
(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)
- (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)
(rmail-select-summary (rmail-update-summary))
;; If we expunged the current message, a new one is current now,
- [Emacs-diffs] emacs/lisp/mail rmail.el, Glenn Morris, 2009/03/04
- [Emacs-diffs] emacs/lisp/mail rmail.el, Richard M. Stallman, 2009/03/16
- [Emacs-diffs] emacs/lisp/mail rmail.el, Richard M. Stallman, 2009/03/16
- [Emacs-diffs] emacs/lisp/mail rmail.el, Richard M. Stallman, 2009/03/16
- [Emacs-diffs] emacs/lisp/mail rmail.el, Richard M. Stallman, 2009/03/18
- [Emacs-diffs] emacs/lisp/mail rmail.el,
Richard M. Stallman <=
- [Emacs-diffs] emacs/lisp/mail rmail.el, Richard M. Stallman, 2009/03/22