mirror of
https://git.notmuchmail.org/git/notmuch
synced 2024-11-21 10:28:09 +01:00
emacs: Use dolist' instead of
mapcar' for side-effects
As recommended by the byte-compiler.
This commit is contained in:
parent
6cdf4b7e38
commit
291ef68ede
1 changed files with 11 additions and 12 deletions
|
@ -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)))
|
||||
|
|
Loading…
Reference in a new issue