more mail cleansing

1 files changed, 8 insertions, 20 deletions

diff --git a/gnus.org b/gnus.org
index cee1685..49a9c98 100644
--- a/gnus.org
+++ b/gnus.org
@@ -3,16 +3,15 @@
 #+auto_tangle: t
 
 * Feature switching vars
-  #+BEGIN_SRC emacs-lisp
+  #+begin_src emacs-lisp
   (defvar jao-gnus-use-local-imap t)
   (defvar jao-gnus-use-leafnode t)
+  (defvar jao-gnus-use-gandi-imap nil)
   (defvar jao-gnus-use-pm-imap nil)
-  (defvar jao-gnus-use-gmail nil)
   (defvar jao-gnus-use-gmane nil)
   (defvar jao-gnus-use-nnml nil)
   (defvar jao-gnus-use-maildirs nil)
-  (defvar jao-gnus-use-nnreddit nil)
-#+END_SRC
+  #+end_src
 * Looks
 *** Verbosity
     #+begin_src emacs-lisp
@@ -120,11 +119,9 @@
                             (nnimap-stream network)
                             (nnimap-server-port 1143))))
 
-    (when jao-gnus-use-gmail
+    (when jao-gnus-use-gandi-imap
       (add-to-list 'gnus-secondary-select-methods
-                   '(nnimap "gmail" (nnimap-address "imap.gmail.com")))
-      (add-to-list 'gnus-secondary-select-methods
-                   '(nnimap "bigml" (nnimap-address "imap.gmail.com"))))
+                   '(nnimap "gandi" (nnimap-address "mail.gandi.net"))))
   #+end_src
 * Mailbox and maildir servers
   #+begin_src emacs-lisp
@@ -165,14 +162,6 @@
                                         dc:date
                                         slash:comments
                                         slash:description))
-
-    ;; (use-package nnreddit
-    ;;   :ensure t
-    ;;   :bind (:map gnus-group-mode-map (("R R" . gnus-group-restart))))
-
-    ;; (when jao-gnus-use-nnreddit
-    ;;   (add-to-list 'gnus-secondary-select-methods '(nnreddit "")))
-
   #+end_src
 * Agents, demons, synchronicity
   #+BEGIN_SRC emacs-lisp
@@ -230,6 +219,9 @@
       (setq jao-gnus--get-count (1+ jao-gnus--get-count))
       (gnus-group-get-new-news (max (if (= 1 jao-gnus--get-count) 4 3)
                                     (or arg 0))))
+    ;; To limit expiration to the `g' count, `jao-gnus--get-count':
+    ;; (remove-hook 'gnus-summary-prepare-exit-hook 'gnus-summary-expire-articles)
+    ;; (define-key gnus-group-mode-map "g" 'jao-gnus-get-new-news)
 
     (defun jao-gnus-restart-servers ()
       (interactive)
@@ -241,10 +233,6 @@
       (message "Restarting all servers... done"))
 
 
-    ;; To limit expiration to the `g' count, `jao-gnus--get-count':
-    ;; (remove-hook 'gnus-summary-prepare-exit-hook 'gnus-summary-expire-articles)
-    ;; (define-key gnus-group-mode-map "g" 'jao-gnus-get-new-news)
-
     (define-key gnus-group-mode-map "Z" #'jao-gnus-restart-servers)
     (define-key gnus-group-mode-map "Gg"#'consult-notmuch)
 #+END_SRC