mirror of https://github.com/djcb/mu.git
mu4e-search-query: include unread counts if available
In the completion annotation.
This commit is contained in:
parent
dd5d5e6bbf
commit
677a6d3882
|
@ -572,10 +572,16 @@ query before submitting it."
|
||||||
(concat
|
(concat
|
||||||
" "
|
" "
|
||||||
(make-string (- longest-name (length name)) ?\s)
|
(make-string (- longest-name (length name)) ?\s)
|
||||||
query))))
|
query
|
||||||
|
(make-string (- longest-query (length query)) ?\s)
|
||||||
|
" "
|
||||||
|
(mu4e--query-item-display-counts item)))))
|
||||||
(completion-extra-properties
|
(completion-extra-properties
|
||||||
`(:annotation-function ,annotation-func)))
|
`(:annotation-function ,annotation-func))
|
||||||
(mu4e-search-bookmark (completing-read "Query: " candidates) edit)))
|
(chosen (completing-read "Query: " candidates))
|
||||||
|
(query (or (plist-get (cdr-safe (assoc chosen candidates)) :query)
|
||||||
|
(mu4e-warn "No query for %s" chosen))))
|
||||||
|
(mu4e-search-bookmark query edit)))
|
||||||
|
|
||||||
(define-minor-mode mu4e-search-minor-mode
|
(define-minor-mode mu4e-search-minor-mode
|
||||||
"Mode for searching for messages."
|
"Mode for searching for messages."
|
||||||
|
|
Loading…
Reference in New Issue