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

[Mail] Fix usage of ‘cl-assert’

This commit is contained in:
Daniel - 2019-02-09 14:00:33 +01:00
parent 3f35471081
commit ca6688996c
Signed by: dbo
GPG Key ID: 4F63DB96D45AA9C6
1 changed files with 4 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -37,7 +37,8 @@ The values of the latter two variables are usually those of
(defun db/mail-accounts--set-value (symbol value)
"Set SYMBOL to VALUE, as needed for `db/mail-accounts’."
(cl-assert (eq symbol 'db/mail-accounts)
"Only use `db/mail-accounts--set-value’ only for setting `db/mail-accounts’.")
nil
"Only use `db/mail-accounts--set-value’ for setting `db/mail-accounts’.")
(set-default symbol value)
@ -86,7 +87,8 @@ will also be recognized when sending mail."
(defun db/other-gnus-accounts--set-value (symbol value)
"Set SYMBOL to VALUE as needed by `db/other-gnus-accounts’"
(cl-assert (eq symbol 'db/other-gnus-accounts)
"Only use `db/other-gnus-accounts--set-value’ only for setting `db/other-gnus-accounts’.")
nil
"Only use `db/other-gnus-accounts--set-value’ for setting `db/other-gnus-accounts’.")
(set-default symbol value)
(db/-set-gnus-secondary-select-methods