# HG changeset patch
# User Chong Yidong <cyd@stupidchicken.com>
# Date 1233025518 0
# Node ID 4f4419bca239e3c9a668382f54e0bb70798dab46
# Parent  e7b952dbdf70ae432d0dd9e15333f2379b759e79
(rmail-summary-mark-deleted): Recache summary.

diff -r e7b952dbdf70 -r 4f4419bca239 lisp/mail/rmailsum.el
--- a/lisp/mail/rmailsum.el	Tue Jan 27 03:05:08 2009 +0000
+++ b/lisp/mail/rmailsum.el	Tue Jan 27 03:05:18 2009 +0000
@@ -714,7 +714,10 @@
 	    (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)