# HG changeset patch
# User Glenn Morris <rgm@gnu.org>
# Date 1233200498 0
# Node ID 13338e3ca8a704f24aa4dfe38ccb4e9748e27a16
# Parent  064248de0e1bd796fd3fe26948b247d699a8d960
(rmail-set-label): Update the summary, if there is one, after a label
is added.

diff -r 064248de0e1b -r 13338e3ca8a7 lisp/mail/rmailkwd.el
--- a/lisp/mail/rmailkwd.el	Thu Jan 29 03:41:12 2009 +0000
+++ b/lisp/mail/rmailkwd.el	Thu Jan 29 03:41:38 2009 +0000
@@ -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)))))