Commit 314a8fc3 authored by Glenn Morris's avatar Glenn Morris
Browse files

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

is added.
parent 8fbbdd44
...@@ -70,6 +70,8 @@ Performs completion over known labels when reading." ...@@ -70,6 +70,8 @@ Performs completion over known labels when reading."
rmail-last-label rmail-last-label
(setq rmail-last-label (rmail-make-label result))))) (setq rmail-last-label (rmail-make-label result)))))
(declare-function rmail-summary-update-line "rmailsum" (n))
(defun rmail-set-label (label state &optional msg) (defun rmail-set-label (label state &optional msg)
"Set LABEL as present or absent according to STATE in message MSG." "Set LABEL as present or absent according to STATE in message MSG."
(with-current-buffer rmail-buffer (with-current-buffer rmail-buffer
...@@ -109,7 +111,10 @@ Performs completion over known labels when reading." ...@@ -109,7 +111,10 @@ Performs completion over known labels when reading."
after) after)
((string= after "") ((string= after "")
before) 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) (if (= msg rmail-current-message)
(rmail-display-labels))))) (rmail-display-labels)))))
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment