From: Chong Yidong <cyd@stupidchicken.com>
Date: Tue, 27 Jan 2009 03:05:18 +0000 (+0000)
Subject: (rmail-summary-mark-deleted): Recache summary.
X-Git-Tag: emacs-pretest-23.0.90~182
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=96a07ae9316b0824f51921b80f2158ce32a2a156;p=emacs.git

(rmail-summary-mark-deleted): Recache summary.
---

diff --git a/lisp/mail/rmailsum.el b/lisp/mail/rmailsum.el
index 79bb8bc2ef3..cc25f3de98c 100644
--- a/lisp/mail/rmailsum.el
+++ b/lisp/mail/rmailsum.el
@@ -714,7 +714,10 @@ a negative argument means to delete and move forward."
 	    (if (looking-at "D")
 		(progn (delete-char 1) (insert " ")))
 	  (delete-char 1)
-	  (insert "D"))))
+	  (insert "D"))
+	;; Register a new summary line.
+	(with-current-buffer rmail-buffer
+	  (aset rmail-summary-vector (1- n) (rmail-create-summary-line n)))))
   (beginning-of-line))
 
 (defun rmail-summary-mark-undeleted (n)