From: Glenn Morris <rgm@gnu.org>
Date: Thu, 29 Jan 2009 03:41:38 +0000 (+0000)
Subject: (rmail-set-label): Update the summary, if there is one, after a label
X-Git-Tag: emacs-pretest-23.0.90~98
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=314a8fc3a7c1475d9c37b9ce1f924e96900cb31f;p=emacs.git

(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 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)))))