From 5951c387b3b234247bd27c9d936936b03c0dc6a9 Mon Sep 17 00:00:00 2001 From: "Dirk-Jan C. Binnema" Date: Tue, 15 Apr 2025 19:35:46 +0300 Subject: [PATCH] mu4e-helpers: fix mu4e-plist-put-many mu4e-plist-put-many was very broken, but somehow mu4e still somewhat worked. --- mu4e/mu4e-helpers.el | 9 +++++---- 1 file changed, 5 insertions(+), 4 deletions(-) diff --git a/mu4e/mu4e-helpers.el b/mu4e/mu4e-helpers.el index 0f23dcf5..a623e189 100644 --- a/mu4e/mu4e-helpers.el +++ b/mu4e/mu4e-helpers.el @@ -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 ... ." - (while keyvals - (plist-put plist (car keyvals) (cadr keyvals)) - (setq keyvals (cdr keyvals))) - plist) + (let (p) + (while keyvals + (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.