dbo/.emacs.d
dbo
/
.emacs.d
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

[Mail] Use ‘cl-remove-if’ instead of ‘remove-if’

This commit is contained in:
Daniel - 2019-02-10 14:04:27 +01:00
parent 80ffb3845b
commit 8864a5bffe
Signed by: dbo
GPG Key ID: 4F63DB96D45AA9C6
1 changed files with 11 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

22
site-lisp/db-mail.el
View File

@ -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’."