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

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

Browse Source 
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
1 changed files with 5 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

9
mu4e/mu4e-helpers.el
View File

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