[Mail] Use ‘cl-remove-if’ instead of ‘remove-if’
This commit is contained in:
parent
80ffb3845b
commit
8864a5bffe
|
@ -53,17 +53,17 @@ The values of the latter two variables are usually those of
|
||||||
(append other-gnus-accounts
|
(append other-gnus-accounts
|
||||||
;; Only add those remote accounts whose IMAP address is neither
|
;; Only add those remote accounts whose IMAP address is neither
|
||||||
;; `nil’ nor the empty string
|
;; `nil’ nor the empty string
|
||||||
(remove-if #'null
|
(cl-remove-if #'null
|
||||||
(mapcar (lambda (account)
|
(mapcar (lambda (account)
|
||||||
(let ((account-name (nth 1 account))
|
(let ((account-name (nth 1 account))
|
||||||
(account-address (nth 2 account)))
|
(account-address (nth 2 account)))
|
||||||
(when (and account-address
|
(when (and account-address
|
||||||
(stringp account-address)
|
(stringp account-address)
|
||||||
(< 0 (length account-address)))
|
(< 0 (length account-address)))
|
||||||
`(nnimap ,account-name
|
`(nnimap ,account-name
|
||||||
(nnimap-address ,account-address)
|
(nnimap-address ,account-address)
|
||||||
(nnimap-inbox "INBOX")))))
|
(nnimap-inbox "INBOX")))))
|
||||||
remote-mail-accounts)))))
|
remote-mail-accounts)))))
|
||||||
|
|
||||||
(defun db/mail-accounts--set-value (symbol value)
|
(defun db/mail-accounts--set-value (symbol value)
|
||||||
"Set SYMBOL to VALUE, as needed for `db/mail-accounts’."
|
"Set SYMBOL to VALUE, as needed for `db/mail-accounts’."
|
||||||
|
|
Loading…
Reference in New Issue