From: Robert Pluim <rpluim@gmail.com>
Date: Thu, 17 Nov 2022 15:53:41 +0000 (+0100)
Subject: Use mapc instead of mapcar when walking rmail threads
X-Git-Tag: emacs-29.0.90~1616^2~101
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=2bf7a06c4bb6cef53bfdfdc58e31128f49b691af;p=emacs.git

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.
---

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)