From 8280177fb14b2eb98daf2523b5ccf4b90e89013a Mon Sep 17 00:00:00 2001
From: fpi
Date: Sun, 20 Mar 2022 17:53:42 +0100
Subject: Use multiple personal imaps

---
 gnus.org | 23 ++++++++++++++++-------
 1 file changed, 16 insertions(+), 7 deletions(-)

(limited to 'gnus.org')

diff --git a/gnus.org b/gnus.org
index dae6d1a..0bb355e 100644
--- a/gnus.org
+++ b/gnus.org
@@ -65,11 +65,18 @@ To avoid confusion I enable namespaces for imap groups.
 #+end_src
 **** Personal mailbox
 #+begin_src emacs-lisp :tangle no :noweb-ref secondary-select-methods
-(add-to-list 'gnus-secondary-select-methods `(nnimap ,@private/personal-imap-info
-                                                     (nnimap-stream ssl)
-                                                     (nnir-search-engine imap)
-                                                     (nnimap-inbox "INBOX")))
+(mapc
+ (lambda (info)
+   (add-to-list
+    'gnus-secondary-select-methods
+    `(nnimap
+      ,@info
+      (nnimap-stream ssl)
+      (nnir-search-engine imap)
+      (nnimap-inbox "INBOX"))))
+ private/personal-imap-info)
 #+end_src
+
 **** RSS/Atom over nntp
 Setup a secondary imap server and a local nntp server I use to fetch
 RSS/Atom Feeds asynchronously.
@@ -185,12 +192,14 @@ Background fetching for gnus. See the manual and [[https://www.emacswiki.org/ema
 To define different scoring files for different groups I set [[info:gnus#Home Score File][home score files]] based on the group name.
 #+begin_src emacs-lisp
 (setq gnus-home-score-file
-      '(("^nnimap" "nnimap.SCORE") ;; w/ author scoring
+      '(("misc@" "nntp_gmane.SCORE")
+        ("^nnimap" "nnimap.SCORE") ;; w/ author scoring
         ("gmane" "nntp_gmane.SCORE") ;; w/ author scoring
         ("^nntp\\+localhost" "nntp_global.SCORE") ;; w/o author scoring
         ))
 (setq gnus-home-adapt-file
-      '(("^nnimap" "nnimap.ADAPT")
+      '(("misc@" "nntp_gmane.SCORE")
+        ("^nnimap" "nnimap.ADAPT")
         ("gmane" "nntp_gmane.ADAPT")
         ("^nntp\\+localhost" "nntp_global.ADAPT")))
 #+end_src
@@ -317,7 +326,7 @@ Commands to interact with the gnus cloud are prefixed with =~= in the group buff
 #+begin_src emacs-lisp :noweb yes
 (use-package gnus-cloud
   :custom
-  (gnus-cloud-method (concat "nnimap:" (car private/personal-imap-info)))
+  (gnus-cloud-method (concat "nnimap:" (caar private/personal-imap-info)))
   (gnus-cloud-synced-files '("~/.authinfo.gpg"
                              ;; "~/.gnus.registry.eieio"
                              ;; (:directory "~/News" :match ".*.\\(SCORE\\|ADAPT\\)")
-- 
cgit v1.2.3