From 693ef0e7d05ec05331c237a1cbe28357f399f507 Mon Sep 17 00:00:00 2001
From: Case Duckworth
Date: Tue, 27 Apr 2021 17:20:17 -0500
Subject: Add gnus-options{,-not}-subscribe settings

Does this leak a little bit?  Sure.  But I /think/ (god, I pray) it's okay.
---
 gnus.el | 46 ++++++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 46 insertions(+)

(limited to 'gnus.el')

diff --git a/gnus.el b/gnus.el
index fa20133..e0171e3 100644
--- a/gnus.el
+++ b/gnus.el
@@ -27,6 +27,52 @@
                 (nnir-search-engine imap))
         (nntp "news.tilde.club")))
 
+;;; 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)
-- 
cgit 1.4.1-21-gabe81