From 34107b130a2aa5b323ca9e09d4840ca707188866 Mon Sep 17 00:00:00 2001
From: Case Duckworth <acdw@acdw.net>
Date: Tue, 4 May 2021 19:58:05 -0500
Subject: [PATCH] Move gnus subscriptions

---
 gnus.el | 98 +++++++++++++++++++++++++++++----------------------------
 1 file changed, 50 insertions(+), 48 deletions(-)

diff --git a/gnus.el b/gnus.el
index 8ad5dc5..c5c96a3 100644
--- a/gnus.el
+++ b/gnus.el
@@ -35,64 +35,20 @@
 (add-hook 'gnus-started-hook #'gnus-cloud-download-all-data)
 (add-hook 'gnus-exit-gnus-hook #'gnus-cloud-upload-all-data)
 
-;;; Gnus subscriptions
-(setq gnus-options-subscribe (rx (or ;; all alternatives go under this
-                                  (seq string-start
-                                       "nnimap+fastmail.com:"
-                                       (or ;; folders in Fastmail
-                                        "INBOX")))
-                                 (seq string-start
-                                      "nntp+news.tilde.club:"
-                                      (or ;; news groups in tilde.club
-                                       (seq "local."
-                                            (or "general"))
-                                       (seq "tilde."
-                                            (or "art"
-                                                "club"
-                                                "cosmic"
-                                                "food+drink"
-                                                "gopher"
-                                                "meta"
-                                                "poetry"
-                                                "services"))))))
-
-(setq gnus-options-not-subscribe (rx (or ;; all alternatives go under this
-                                      (seq string-start
-                                           "nnimap+fastmail.com:"
-                                           (or ;; folders in Fastmail
-                                            "Archive"
-                                            "Bulk"
-                                            "DeltaChat"
-                                            "Gmail"
-                                            "Pam"
-                                            "Spam"
-                                            "Trash"
-                                            "blag"
-                                            "notes"))
-                                      (seq string-start
-                                           "nntp+news.tilde.club:"
-                                           (or ;; news groups in tilde.club
-                                            (seq "tilde."
-                                                 (or "black"
-                                                     "javascript"
-                                                     "nsfw"
-                                                     "php"
-                                                     "pink"
-                                                     "python"
-                                                     "your")))))))
-
 ;;; Gnus behavior options
 (setq gnus-gcc-mark-as-read t
       message-signature (or (file-exists-p message-signature-file)
                             "~ acdw")
       gnus-save-newsrc-file nil
       gnus-read-newsrc-file nil
-      gnus-interactive-exit nil)
+      gnus-interactive-exit nil
+      gnus-use-cache t
+      gnus-read-active-file 'some)
 
 ;;; Other parameters
 (setq gnus-parameters
       '(("nnimap\\.*"
-         (display . all))))
+         (display . 200))))
 
 ;;; Gnus UI options
 (setq gnus-thread-sort-functions '(gnus-thread-sort-by-most-recent-date
@@ -170,3 +126,49 @@
            bbdb-use-pop-up t
            bbdb-offer-save 1
            bbdb-update-records-p t))
+
+;;; Gnus subscriptions
+(setq gnus-options-subscribe (rx (or ;; all alternatives go under this
+                                  (seq string-start
+                                       "nnimap+fastmail.com:"
+                                       (or ;; folders in Fastmail
+                                        "INBOX")))
+                                 (seq string-start
+                                      "nntp+news.tilde.club:"
+                                      (or ;; news groups in tilde.club
+                                       (seq "local."
+                                            (or "general"))
+                                       (seq "tilde."
+                                            (or "art"
+                                                "club"
+                                                "cosmic"
+                                                "food+drink"
+                                                "gopher"
+                                                "meta"
+                                                "poetry"
+                                                "services"))))))
+
+(setq gnus-options-not-subscribe (rx (or ;; all alternatives go under this
+                                      (seq string-start
+                                           "nnimap+fastmail.com:"
+                                           (or ;; folders in Fastmail
+                                            "Archive"
+                                            "Bulk"
+                                            "DeltaChat"
+                                            "Gmail"
+                                            "Pam"
+                                            "Spam"
+                                            "Trash"
+                                            "blag"
+                                            "notes"))
+                                      (seq string-start
+                                           "nntp+news.tilde.club:"
+                                           (or ;; news groups in tilde.club
+                                            (seq "tilde."
+                                                 (or "black"
+                                                     "javascript"
+                                                     "nsfw"
+                                                     "php"
+                                                     "pink"
+                                                     "python"
+                                                     "your")))))))