emacs
/
mu
mirror of https://github.com/djcb/mu.git
1
0
Fork 0
Code Issues Releases Wiki Activity

mu4e-headers: show number of hidden messages in footer

This commit is contained in:
Dirk-Jan C. Binnema 2022-12-11 14:32:16 +02:00
parent f4923c6f2a
commit f46fe4ee69
1 changed files with 17 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

27
mu4e/mu4e-headers.el
View File

@ -342,6 +342,9 @@ In the format needed for `mu4e-read-option'.")
"If non-nil, report on the time it took to render the messages. "If non-nil, report on the time it took to render the messages.
This is mostly useful for profiling.") This is mostly useful for profiling.")
(defvar mu4e~headers-hidden 0
"Number of headers hidden due to `mu4e-headers-hide-predicate'.")
;;; Clear ;;; Clear
@ -350,7 +353,8 @@ This is mostly useful for profiling.")
"Clear the headers buffer and related data structures. "Clear the headers buffer and related data structures.
Optionally, show TEXT." Optionally, show TEXT."
(when (buffer-live-p (mu4e-get-headers-buffer)) (when (buffer-live-p (mu4e-get-headers-buffer))
(setq mu4e~headers-render-start (float-time)) (setq mu4e~headers-render-start (float-time)
mu4e~headers-hidden 0)
(let ((inhibit-read-only t)) (let ((inhibit-read-only t))
(with-current-buffer (mu4e-get-headers-buffer) (with-current-buffer (mu4e-get-headers-buffer)
(mu4e--mark-clear) (mu4e--mark-clear)
@ -687,14 +691,16 @@ space propertized with a `display' text property which expands to
(defsubst mu4e~message-header-line (msg) (defsubst mu4e~message-header-line (msg)
"Return a propertized description of message MSG suitable for "Return a propertized description of message MSG suitable for
displaying in the header view." displaying in the header view."
;; should we hide it? (if (and mu4e-headers-hide-enabled mu4e-headers-hide-predicate
(unless (and mu4e-headers-hide-enabled mu4e-headers-hide-predicate (funcall mu4e-headers-hide-predicate msg))
(funcall mu4e-headers-hide-predicate msg)) (progn
(mu4e~headers-apply-flags (cl-incf mu4e~headers-hidden)
msg nil)
(mapconcat (lambda (f-w) (mu4e~headers-field-handler f-w msg)) (progn
mu4e-headers-fields " ")))) (mu4e~headers-apply-flags
msg
(mapconcat (lambda (f-w) (mu4e~headers-field-handler f-w msg))
mu4e-headers-fields " ")))))
(defsubst mu4e~headers-insert-header (msg pos) (defsubst mu4e~headers-insert-header (msg pos)
"Insert a header for MSG at point POS." "Insert a header for MSG at point POS."
@ -885,8 +891,9 @@ after the end of the search results."
(goto-char (point-max)) (goto-char (point-max))
(let ((inhibit-read-only t) (let ((inhibit-read-only t)
(str (if (zerop count) mu4e~no-matches mu4e~end-of-results)) (str (if (zerop count) mu4e~no-matches mu4e~end-of-results))
(msg (format "Found %d matching message%s%s" (msg (format "Found %d matching message%s; %d hidden%s"
count (if (= 1 count) "" "s") count (if (= 1 count) "" "s")
mu4e~headers-hidden
(mu4e~headers-benchmark-message count)))) (mu4e~headers-benchmark-message count))))
(insert (propertize str 'face 'mu4e-system-face 'intangible t)) (insert (propertize str 'face 'mu4e-system-face 'intangible t))