Commit 5c9b1aaa authored by Glenn Morris's avatar Glenn Morris
Browse files

(rmail-get-summary-labels): Store any message labels for use in

completion.
parent 6d60445e
......@@ -421,6 +421,8 @@ the message being processed."
(setq result (concat "{" result "}")))
result))
(autoload 'rmail-make-label "rmailkwd")
(defun rmail-get-summary-labels ()
"Return a string wrapped in curly braces with the current message labels.
Returns nil if there are no labels. The current buffer must
......@@ -429,7 +431,10 @@ processed."
(let ((labels (mail-fetch-field rmail-keyword-header)))
(and labels
(not (string-equal labels ""))
(format "{ %s } " labels))))
(progn
;; Intern so that rmail-read-label can offer completion.
(mapc 'rmail-make-label (split-string labels ", "))
(format "{ %s } " labels)))))
(defun rmail-create-summary (msgnum deleted unseen lines)
"Return the summary line for message MSGNUM.
......
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