emacs: Use dolist' instead of mapcar' for side-effects

As recommended by the byte-compiler.
This commit is contained in:
Jonas Bernoulli 2020-04-25 22:18:09 +02:00 committed by David Bremner
parent 6cdf4b7e38
commit 291ef68ede

View file

@ -67,7 +67,7 @@ Return `t' if the message would be sent, otherwise `nil'"
(defun notmuch-test-attachment-warning-1 ()
(let (output expected)
(mapcar (lambda (test)
(dolist (test attachment-check-tests)
(let* ((expect (car test))
(body (cdr test))
(result (attachment-check-test body)))
@ -78,5 +78,4 @@ Return `t' if the message would be sent, otherwise `nil'"
;; details to make it simpler to debug.
(format "%S <-- %S" result body))
output)))
attachment-check-tests)
(notmuch-test-expect-equal output expected)))