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

Remove calls to some obsolete CL functions

This commit is contained in:
Daniel - 2021-01-16 14:34:48 +01:00
parent 8729f7e84c
commit a49d7fc76d
No known key found for this signature in database
GPG Key ID: 1C7071A75BB72D64
2 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
init.el
View File

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

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

@ -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)