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

mu4e-headers: appease byte-compiler

This commit is contained in:
Dirk-Jan C. Binnema 2022-12-08 23:18:45 +02:00
parent 093efefb98
commit 3b1d1edd46
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
mu4e/mu4e-headers.el
View File

@ -590,7 +590,7 @@ found."
field (cdr item))))) field (cdr item)))))
(funcall func msg))) (funcall func msg)))
(defsubst mu4e~headers-field-value (msg field) (defun mu4e~headers-field-value (msg field)
(let ((val (mu4e-message-field msg field))) (let ((val (mu4e-message-field msg field)))
(cl-case field (cl-case field
(:subject (:subject
@ -622,7 +622,7 @@ found."
(:size (mu4e-display-size val)) (:size (mu4e-display-size val))
(t (mu4e~headers-custom-field-value msg field))))) (t (mu4e~headers-custom-field-value msg field)))))
(defun mu4e~headers-truncate-field-fast (val width) (defsubst mu4e~headers-truncate-field-fast (val width)
"Truncate VAL to WIDTH. Fast and somewhat inaccurate." "Truncate VAL to WIDTH. Fast and somewhat inaccurate."
(if width (if width
(truncate-string-to-width val width 0 ?\s truncate-string-ellipsis) (truncate-string-to-width val width 0 ?\s truncate-string-ellipsis)