(rmail-set-label): Call rmail-summary-update at the

end.

diff --git a/lisp/mail/rmailkwd.el b/lisp/mail/rmailkwd.el
index 86ca3d2750ab319fc0ef3213a6048d3692f6c0be..ae6ab26f9b62fbd63fb7856244cdaeef45a8c8d4 100644 (file)
--- a/lisp/mail/rmailkwd.el
+++ b/lisp/mail/rmailkwd.el
@@ -180,7 +180,10 @@ possibly narrowed, displays a message."
               (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)))
 \f
 ;; Motion on messages with keywords.