Improve handling of email address filtering

global.org

@@ -897,11 +897,13 @@
    #+begin_src emacs-lisp
      (load-file "~/.emacs.d/filtered-emails.el")
 
+     (defun wilder/filter--from-list (address list)
+       (if (not list) address
+         (and (not (string-equal address (car list)))
+              (wilder/filter--from-list address (cdr list)))))
+
      (defun my-mu4e-contact-filter-function (addr)
-       (let ((ignore nil))
-         (if  (dolist (address filter-addresses ignore)
-                (setq ignore (or ignore (string-equal addr address))))
-             nil addr)))
+       (wilder/filter--from-list addr filter-addresses))
 
      (setq mu4e-contact-process-function 'my-mu4e-contact-filter-function)
    #+end_src