From 8864a5bffe2e335d290c267ec238b448b800ceef Mon Sep 17 00:00:00 2001 From: Daniel Borchmann Date: Sun, 10 Feb 2019 14:04:27 +0100 Subject: [PATCH] =?UTF-8?q?[Mail]=20Use=20=E2=80=98cl-remove-if=E2=80=99?= =?UTF-8?q?=20instead=20of=20=E2=80=98remove-if=E2=80=99?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- site-lisp/db-mail.el | 22 +++++++++++----------- 1 file changed, 11 insertions(+), 11 deletions(-) diff --git a/site-lisp/db-mail.el b/site-lisp/db-mail.el index 0896214..807fac9 100644 --- a/site-lisp/db-mail.el +++ b/site-lisp/db-mail.el @@ -53,17 +53,17 @@ The values of the latter two variables are usually those of (append other-gnus-accounts ;; Only add those remote accounts whose IMAP address is neither ;; `nil’ nor the empty string - (remove-if #'null - (mapcar (lambda (account) - (let ((account-name (nth 1 account)) - (account-address (nth 2 account))) - (when (and account-address - (stringp account-address) - (< 0 (length account-address))) - `(nnimap ,account-name - (nnimap-address ,account-address) - (nnimap-inbox "INBOX"))))) - remote-mail-accounts))))) + (cl-remove-if #'null + (mapcar (lambda (account) + (let ((account-name (nth 1 account)) + (account-address (nth 2 account))) + (when (and account-address + (stringp account-address) + (< 0 (length account-address))) + `(nnimap ,account-name + (nnimap-address ,account-address) + (nnimap-inbox "INBOX"))))) + remote-mail-accounts))))) (defun db/mail-accounts--set-value (symbol value) "Set SYMBOL to VALUE, as needed for `db/mail-accounts’."