From a49d7fc76d76ce1fc11eb80ba5f4a4ff94d9e90c Mon Sep 17 00:00:00 2001 From: Daniel Borchmann Date: Sat, 16 Jan 2021 14:34:48 +0100 Subject: [PATCH] Remove calls to some obsolete CL functions --- init.el | 2 +- site-lisp/db-mail.el | 4 ++-- 2 files changed, 3 insertions(+), 3 deletions(-) diff --git a/init.el b/init.el index fa60aa6..e6f16d1 100644 --- a/init.el +++ b/init.el @@ -305,7 +305,7 @@ server-file) (server-start) - (ecase (server-running-p) + (cl-ecase (server-running-p) ((t) t) ; server is running (nil (warn "Server not running, check logs and restart manually.")) (t (warn "`server-running-p' returned neither nil nor t. Check and restart server manually if required.")))))) diff --git a/site-lisp/db-mail.el b/site-lisp/db-mail.el index de13814..ec30f25 100644 --- a/site-lisp/db-mail.el +++ b/site-lisp/db-mail.el @@ -92,7 +92,7 @@ ACCOUNT must be a valid element of `db/mail-accounts’." "Set `gnus-secondary-select-methods’ from OTHER-GNUS-ACCOUNTS and REMOTE-MAIL-ACCOUNTS. The values of the latter two variables are usually those of `db/other-gnus-accounts’ and `db/mail-accounts’. If multiple -accounts exist with the same (equalp) account name, only the +accounts exist with the same (cl-equalp) account name, only the first will be added to `gnus-secondary-select-methods'." (let ((select-methods (append other-gnus-accounts ;; Only add those remote accounts whose IMAP address is neither @@ -112,7 +112,7 @@ first will be added to `gnus-secondary-select-methods'." (setq gnus-secondary-select-methods (cl-remove-duplicates select-methods :key #'cl-second ; account name is second element - :test #'equalp)))) + :test #'cl-equalp)))) ;; Let's make the byte-compiler happy (defvar gnus-posting-styles)