[Emacs-diffs] emacs/lisp/mail rmailsum.el

[Chong Yidong]

CVSROOT:        /sources/emacs
Module name:    emacs
Changes by:     Chong Yidong <cyd>      09/01/27 03:05:19

Modified files:
        lisp/mail      : rmailsum.el 

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

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/mail/rmailsum.el?cvsroot=emacs&r1=1.156&r2=1.157

Patches:
Index: rmailsum.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/mail/rmailsum.el,v
retrieving revision 1.156
retrieving revision 1.157
diff -u -b -r1.156 -r1.157
--- rmailsum.el 23 Jan 2009 19:20:01 -0000      1.156
+++ rmailsum.el 27 Jan 2009 03:05:18 -0000      1.157
@@ -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)