alx/mu4e
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

mu4e-headers: cosmetics

Browse Source 
Fix some flycheck warnings.
This commit is contained in:
Dirk-Jan C. Binnema
2025-03-16 19:02:24 +02:00
parent a2a1838da4
commit 398cb0abd2
1 changed files with 7 additions and 8 deletions
Download Patch File Download Diff File Expand all files Collapse all files

15
mu4e/mu4e-headers.el
View File

@ -53,7 +53,6 @@
(declare-function mu4e-view "mu4e-view") (declare-function mu4e-view "mu4e-view")
(declare-function mu4e--main-view "mu4e-main") (declare-function mu4e--main-view "mu4e-main")
;;; Configuration ;;; Configuration
(defgroup mu4e-headers nil (defgroup mu4e-headers nil
@ -217,7 +216,6 @@ When it is showing, respectively, From: or To:. It is a cons cell
(defvar mu4e-headers-personal-mark '("p" . "Ⓟ") "Personal.") (defvar mu4e-headers-personal-mark '("p" . "Ⓟ") "Personal.")
(defvar mu4e-headers-calendar-mark '("c" . "Ⓒ") "Calendar invitation.") (defvar mu4e-headers-calendar-mark '("c" . "Ⓒ") "Calendar invitation.")
;;;; Graph drawing ;;;; Graph drawing
(defvar mu4e-headers-thread-mark-as-orphan 'first (defvar mu4e-headers-thread-mark-as-orphan 'first
@ -550,9 +548,9 @@ e.g. \"mutt\"."
(defsubst mu4e~headers-custom-field-value (msg field) (defsubst mu4e~headers-custom-field-value (msg field)
"Show custom header FIELD for MSG, or raise error if not found." "Show custom header FIELD for MSG, or raise error if not found."
(let* ((item (or (assoc field mu4e-header-info-custom) (let* ((item (or (assoc field mu4e-header-info-custom)
(mu4e-error "field %S not found" field))) (mu4e-error "Field %S not found" field)))
(func (or (plist-get (cdr-safe item) :function) (func (or (plist-get (cdr-safe item) :function)
(mu4e-error "no :function defined for field %S %S" (mu4e-error "No :function defined for field %S %S"
field (cdr item))))) field (cdr item)))))
(funcall func msg))) (funcall func msg)))
@ -846,7 +844,8 @@ true, do *not* update the query history stack."
mu4e-search-include-related))) mu4e-search-include-related)))
(defun mu4e~headers-benchmark-message (count) (defun mu4e~headers-benchmark-message (count)
"Get some report message for messaging search and rendering speed." "Get some report message for messaging search and rendering speed.
COUNT is the number of messages found."
(if (and mu4e-headers-report-render-time (if (and mu4e-headers-report-render-time
mu4e~headers-search-start mu4e~headers-search-start
mu4e~headers-render-start mu4e~headers-render-start
@ -861,7 +860,7 @@ true, do *not* update the query history stack."
"")) ""))
(defun mu4e~headers-found-handler (count) (defun mu4e~headers-found-handler (count)
"Create one=line description of the COUNT of headers found." "Create one-line description of the COUNT of headers found."
(when (buffer-live-p (mu4e-get-headers-buffer)) (when (buffer-live-p (mu4e-get-headers-buffer))
(with-current-buffer (mu4e-get-headers-buffer) (with-current-buffer (mu4e-get-headers-buffer)
(save-excursion (save-excursion
@ -1092,7 +1091,7 @@ true, do *not* update the query history stack."
mu4e-headers-fields)))) mu4e-headers-fields))))
(defun mu4e~headers-maybe-auto-update () (defun mu4e~headers-maybe-auto-update ()
"Update the current headers buffer after indexing changes. "Update the current headers buffer after indexing.
Furthermore, `mu4e-headers-auto-update' is non-nil and there is Furthermore, `mu4e-headers-auto-update' is non-nil and there is
no user-interaction ongoing. no user-interaction ongoing.
@ -1265,7 +1264,7 @@ corresponding header."
(defun mu4e-headers-find-if (func &optional backward) (defun mu4e-headers-find-if (func &optional backward)
"Move to the header for which FUNC returns non-nil. "Move to the header where FUNC yields non-nil.
if BACKWARD is non-nil, search backwards. if BACKWARD is non-nil, search backwards.
FUNC receives one argument, the message s-expression for the FUNC receives one argument, the message s-expression for the