From 314a8fc3a7c1475d9c37b9ce1f924e96900cb31f Mon Sep 17 00:00:00 2001 From: Glenn Morris Date: Thu, 29 Jan 2009 03:41:38 +0000 Subject: [PATCH] (rmail-set-label): Update the summary, if there is one, after a label is added. --- lisp/mail/rmailkwd.el | 7 ++++++- 1 file changed, 6 insertions(+), 1 deletion(-) diff --git a/lisp/mail/rmailkwd.el b/lisp/mail/rmailkwd.el index 94d67cb3a0b..ccf19e5b5ee 100644 --- 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))))) -- 2.11.4.GIT