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

is added.

diff --git a/lisp/mail/rmailkwd.el b/lisp/mail/rmailkwd.el
index 94d67cb3a0b60ed166f0f3bcff0ad5c6051890a3..ccf19e5b5ee43379acc8143ebb064646142e6ed7 100644 (file)
--- a/lisp/mail/rmailkwd.el
+++ b/lisp/mail/rmailkwd.el
@@ -70,6 +70,8 @@ Performs completion over known labels when reading."
        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 @@ Performs completion over known labels when reading."
                        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)))))
 \f