# HG changeset patch
# User Alex Schroeder <alex@gnu.org>
# Date 1137714843 0
# Node ID b589e7b4f4c47ab03f90220d51ca2aa91a11fe11
# Parent  8a1f15a85efbf90cefa9454c1fd99bcefe8d2af0
(rmail-set-label): Call rmail-summary-update at the
end.

diff -r 8a1f15a85efb -r b589e7b4f4c4 lisp/mail/rmailkwd.el
--- a/lisp/mail/rmailkwd.el	Thu Jan 19 23:52:59 2006 +0000
+++ b/lisp/mail/rmailkwd.el	Thu Jan 19 23:54:03 2006 +0000
@@ -180,7 +180,10 @@
               (rmail-desc-add-keyword keyword n)
             (rmail-desc-remove-keyword keyword n)))
 	;; FIXME: handle redisplay in the summary buffer
-	(rmail-display-labels)))))
+	(rmail-display-labels))))
+  ;; Deal with the summary buffer.
+  (when rmail-summary-buffer
+    (rmail-summary-update n)))
 
 ;; Motion on messages with keywords.