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

Fix wide docstring

Browse Source
This commit is contained in:
Daniel Borchmann 2025-06-22 11:16:28 +02:00
parent 09009552ae
commit 9706def3c6
No known key found for this signature in database
GPG Key ID: 50EA937BF472ADD1
1 changed files with 7 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -89,11 +89,13 @@ ACCOUNT must be a valid element of `db/mail-accounts’."
(nth 6 account))
(defun db/-set-gnus-secondary-select-methods (other-gnus-accounts 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
`db/other-gnus-accounts’ and `db/mail-accounts’. If multiple
accounts exist with the same (cl-equalp) account name, only the
first will be added to `gnus-secondary-select-methods'."
"Set `gnus-secondary-select-methods’ from specified accounts.
Accounts are given by OTHER-GNUS-ACCOUNTS and REMOTE-MAIL-ACCOUNTS. The
values of those two variables are usually those of
`db/other-gnus-accounts’ and `db/mail-accounts’. If multiple 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
;; `nil’ nor the empty string