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

Merge pull request #2332 from remvee/mu4e-headers-sanitize-field-values

Browse Source 
mu4e: remove disruptive characters from header fields
This commit is contained in:
Dirk-Jan C. Binnema
2022-09-14 23:05:32 +03:00
committed by GitHub
parent 87018e6257 74d5902133
commit 0de4754df6
1 changed files with 6 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

7
mu4e/mu4e-headers.el
View File

@ -653,12 +653,17 @@ space propertized with a `display' text property which expands to
(mu4e~headers-truncate-field-precise field val width) (mu4e~headers-truncate-field-precise field val width)
(mu4e~headers-truncate-field-fast val width))) (mu4e~headers-truncate-field-fast val width)))
(defsubst mu4e~headers-sanitize-field-value (val)
"Replace control characters in VAL by regular spaces."
(replace-regexp-in-string "[\0- ]+" " " val))
(defsubst mu4e~headers-field-handler (f-w msg) (defsubst mu4e~headers-field-handler (f-w msg)
"Create a description of the field of MSG described by F-W." "Create a description of the field of MSG described by F-W."
(let* ((field (car f-w)) (let* ((field (car f-w))
(width (cdr f-w)) (width (cdr f-w))
(val (mu4e~headers-field-value msg field)) (val (mu4e~headers-field-value msg field))
(val (and val (if width (mu4e~headers-truncate-field field val width) val)))) (val (and val (if width (mu4e~headers-truncate-field field val width) val)))
(val (and val (mu4e~headers-sanitize-field-value val))))
val)) val))
(defsubst mu4e~headers-apply-flags (msg fieldval) (defsubst mu4e~headers-apply-flags (msg fieldval)