changeset 101533:4f4419bca239

(rmail-summary-mark-deleted): Recache summary.
author Chong Yidong <cyd@stupidchicken.com>
date Tue, 27 Jan 2009 03:05:18 +0000
parents e7b952dbdf70
children 4ec17a20d09e
files lisp/mail/rmailsum.el
diffstat 1 files changed, 4 insertions(+), 1 deletions(-) [+]
line wrap: on
line diff
--- 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)