From ca6688996c2689589fb1bf348197f83092ac0af3 Mon Sep 17 00:00:00 2001 From: Daniel Borchmann Date: Sat, 9 Feb 2019 14:00:33 +0100 Subject: [PATCH] =?UTF-8?q?[Mail]=20Fix=20usage=20of=20=E2=80=98cl-assert?= =?UTF-8?q?=E2=80=99?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- site-lisp/db-mail.el | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) diff --git a/site-lisp/db-mail.el b/site-lisp/db-mail.el index 5b823b2..3de8200 100644 --- a/site-lisp/db-mail.el +++ b/site-lisp/db-mail.el @@ -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