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

[Glenn Morris]

CVSROOT:        /sources/emacs
Module name:    emacs
Changes by:     Glenn Morris <gm>       09/01/29 03:41:39

Modified files:
        lisp/mail      : rmailkwd.el 

Log message:
        (rmail-set-label): Update the summary, if there is one, after a label
        is added.

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/mail/rmailkwd.el?cvsroot=emacs&r1=1.32&r2=1.33

Patches:
Index: rmailkwd.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/mail/rmailkwd.el,v
retrieving revision 1.32
retrieving revision 1.33
diff -u -b -r1.32 -r1.33
--- rmailkwd.el 23 Jan 2009 19:19:05 -0000      1.32
+++ rmailkwd.el 29 Jan 2009 03:41:38 -0000      1.33
@@ -70,6 +70,8 @@
        rmail-last-label
       (setq rmail-last-label (rmail-make-label result)))))
 
+(declare-function rmail-summary-update-line "rmailsum" (n))
+
 (defun rmail-set-label (label state &optional msg)
   "Set LABEL as present or absent according to STATE in message MSG."
   (with-current-buffer rmail-buffer
@@ -109,7 +111,10 @@
                        after)
                       ((string= after "")
                        before)
-                      (t (concat before ", " after)))))))))
+                      (t (concat before ", " after))))))
+           (if (rmail-summary-exists)
+               (rmail-select-summary
+                (rmail-summary-update-line msg))))))
       (if (= msg rmail-current-message)
          (rmail-display-labels)))))