From 9706def3c6bb89d1adec35d801e0b48a3aed8600 Mon Sep 17 00:00:00 2001 From: Daniel Borchmann Date: Sun, 22 Jun 2025 11:16:28 +0200 Subject: [PATCH] Fix wide docstring --- site-lisp/db-mail.el | 12 +++++++----- 1 file changed, 7 insertions(+), 5 deletions(-) diff --git a/site-lisp/db-mail.el b/site-lisp/db-mail.el index 18cb5a8..4d8f072 100644 --- a/site-lisp/db-mail.el +++ b/site-lisp/db-mail.el @@ -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