mu4e-helpers: fix mu4e-plist-put-many

mu4e-plist-put-many was very broken, but somehow mu4e still somewhat
worked.
This commit is contained in:
Dirk-Jan C. Binnema
2025-04-15 19:35:46 +03:00
parent 635f6f1bc2
commit 5951c387b3

View File

@ -623,10 +623,11 @@ Returns the updated PLIST."
(defun mu4e-plist-put-many (plist &rest keyvals)
"Like `plist-put', but allow for multiple key-value pairs.
PLIST is a property list, and KEYVALS are key value ... ."
(let (p)
(while keyvals
(plist-put plist (car keyvals) (cadr keyvals))
(setq keyvals (cdr keyvals)))
plist)
(setq p (plist-put plist (car keyvals) (cadr keyvals)))
(setq keyvals (cddr keyvals)))
p))
(defun mu4e--message-hide-headers ()
"Hide headers based on the `message-hidden-headers' variable.