Remove calls to some obsolete CL functions
This commit is contained in:
parent
8729f7e84c
commit
a49d7fc76d
2
init.el
2
init.el
|
@ -305,7 +305,7 @@
|
||||||
server-file)
|
server-file)
|
||||||
|
|
||||||
(server-start)
|
(server-start)
|
||||||
(ecase (server-running-p)
|
(cl-ecase (server-running-p)
|
||||||
((t) t) ; server is running
|
((t) t) ; server is running
|
||||||
(nil (warn "Server not running, check logs and restart manually."))
|
(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."))))))
|
(t (warn "`server-running-p' returned neither nil nor t. Check and restart server manually if required."))))))
|
||||||
|
|
|
@ -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.
|
"Set `gnus-secondary-select-methods’ from OTHER-GNUS-ACCOUNTS and REMOTE-MAIL-ACCOUNTS.
|
||||||
The values of the latter two variables are usually those of
|
The values of the latter two variables are usually those of
|
||||||
`db/other-gnus-accounts’ and `db/mail-accounts’. If multiple
|
`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'."
|
first will be added to `gnus-secondary-select-methods'."
|
||||||
(let ((select-methods (append other-gnus-accounts
|
(let ((select-methods (append other-gnus-accounts
|
||||||
;; Only add those remote accounts whose IMAP address is neither
|
;; 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
|
(setq gnus-secondary-select-methods
|
||||||
(cl-remove-duplicates select-methods
|
(cl-remove-duplicates select-methods
|
||||||
:key #'cl-second ; account name is second element
|
:key #'cl-second ; account name is second element
|
||||||
:test #'equalp))))
|
:test #'cl-equalp))))
|
||||||
|
|
||||||
;; Let's make the byte-compiler happy
|
;; Let's make the byte-compiler happy
|
||||||
(defvar gnus-posting-styles)
|
(defvar gnus-posting-styles)
|
||||||
|
|
Loading…
Reference in New Issue