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

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

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
No known key found for this signature in database
GPG Key ID: 4AEE18F83AFDEB23
1 changed files with 6 additions and 1 deletions
Show Stats 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-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)
"Create a description of the field of MSG described by F-W."
(let* ((field (car f-w))
(width (cdr f-w))
(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))
(defsubst mu4e~headers-apply-flags (msg fieldval)