Mercurial > emacs
changeset 101631:13338e3ca8a7
(rmail-set-label): Update the summary, if there is one, after a label
is added.
| author | Glenn Morris <rgm@gnu.org> |
|---|---|
| date | Thu, 29 Jan 2009 03:41:38 +0000 |
| parents | 064248de0e1b |
| children | f2c12c2dac63 |
| files | lisp/mail/rmailkwd.el |
| diffstat | 1 files changed, 6 insertions(+), 1 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/mail/rmailkwd.el Thu Jan 29 03:41:12 2009 +0000 +++ b/lisp/mail/rmailkwd.el Thu Jan 29 03:41:38 2009 +0000 @@ -70,6 +70,8 @@ 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 @@ 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)))))