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 --- emacs-private.el.gpg | Bin 1271 -> 1289 bytes gnus.org | 23 ++++++++++++++++------- 2 files changed, 16 insertions(+), 7 deletions(-) diff --git a/emacs-private.el.gpg b/emacs-private.el.gpg index a930f89..1efdb54 100644 Binary files a/emacs-private.el.gpg and b/emacs-private.el.gpg differ 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