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

1 files changed, 4 insertions, 1 deletions

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)