From 2bf7a06c4bb6cef53bfdfdc58e31128f49b691af Mon Sep 17 00:00:00 2001 From: Robert Pluim Date: Thu, 17 Nov 2022 16:53:41 +0100 Subject: [PATCH] Use mapc instead of mapcar when walking rmail threads * lisp/mail/rmailsum.el (rmail-summary--walk-thread-message-recursively): Use `mapc' instead of `mapcar'; we don't care about the results. --- lisp/mail/rmailsum.el | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/lisp/mail/rmailsum.el b/lisp/mail/rmailsum.el index 971e504dcd1..f161664d964 100644 --- a/lisp/mail/rmailsum.el +++ b/lisp/mail/rmailsum.el @@ -410,10 +410,10 @@ already ticked in ENCOUNTERED-MSGS." (lambda (msg) (rmail-summary--walk-thread-message-recursively msg encountered-msgs)))) - (mapcar walk-thread-msg - (aref rmail-summary-message-parents-vector msgnum)) - (mapcar walk-thread-msg - (rmail-summary-direct-descendants msgnum encountered-msgs))))) + (mapc walk-thread-msg + (aref rmail-summary-message-parents-vector msgnum)) + (mapc walk-thread-msg + (rmail-summary-direct-descendants msgnum encountered-msgs))))) ;;;###autoload (defun rmail-summary-by-thread (&optional msgnum) -- 2.39.5