diff options
author | Robert Pluim <rpluim@gmail.com> | 2022-11-17 16:53:41 +0100 |
---|---|---|
committer | Robert Pluim <rpluim@gmail.com> | 2022-11-17 17:00:26 +0100 |
commit | 2bf7a06c4bb6cef53bfdfdc58e31128f49b691af (patch) | |
tree | f2fe576298fca481067777db8d567ea65317da70 | |
parent | 11e64d0048215a87a80b4a493a2a0295b524cbba (diff) | |
download | emacs-2bf7a06c4bb6cef53bfdfdc58e31128f49b691af.tar.gz |
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.
-rw-r--r-- | lisp/mail/rmailsum.el | 8 |
1 files 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) |