about summary refs log tree commit diff stats
diff options
context:
space:
mode:
authorCase Duckworth2021-04-27 17:20:17 -0500
committerCase Duckworth2021-04-27 17:20:17 -0500
commit693ef0e7d05ec05331c237a1cbe28357f399f507 (patch)
treee42f251cbe57f2b5f38bf332ae25b8e77ff358ab
parentAdd prefix arg to pull ~/.emacs from git (diff)
downloademacs-693ef0e7d05ec05331c237a1cbe28357f399f507.tar.gz
emacs-693ef0e7d05ec05331c237a1cbe28357f399f507.zip
Add gnus-options{,-not}-subscribe settings
Does this leak a little bit?  Sure.  But I /think/ (god, I pray) it's okay.
-rw-r--r--gnus.el46
1 files changed, 46 insertions, 0 deletions
diff --git a/gnus.el b/gnus.el index fa20133..e0171e3 100644 --- a/gnus.el +++ b/gnus.el
@@ -27,6 +27,52 @@
27 (nnir-search-engine imap)) 27 (nnir-search-engine imap))
28 (nntp "news.tilde.club"))) 28 (nntp "news.tilde.club")))
29 29
30;;; Gnus subscriptions
31(setq gnus-options-subscribe (rx (or ;; all alternatives go under this
32 (seq string-start
33 "nnimap+fastmail.com:"
34 (or ;; folders in Fastmail
35 "INBOX")))
36 (seq string-start
37 "nntp+news.tilde.club:"
38 (or ;; news groups in tilde.club
39 (seq "local."
40 (or "general"))
41 (seq "tilde."
42 (or "art"
43 "club"
44 "cosmic"
45 "food+drink"
46 "gopher"
47 "meta"
48 "poetry"
49 "services"))))))
50
51(setq gnus-options-not-subscribe (rx (or ;; all alternatives go under this
52 (seq string-start
53 "nnimap+fastmail.com:"
54 (or ;; folders in Fastmail
55 "Archive"
56 "Bulk"
57 "DeltaChat"
58 "Gmail"
59 "Pam"
60 "Spam"
61 "Trash"
62 "blag"
63 "notes"))
64 (seq string-start
65 "nntp+news.tilde.club:"
66 (or ;; news groups in tilde.club
67 (seq "tilde."
68 (or "black"
69 "javascript"
70 "nsfw"
71 "php"
72 "pink"
73 "python"
74 "your")))))))
75
30;;; Gnus behavior options 76;;; Gnus behavior options
31(setq gnus-gcc-mark-as-read t 77(setq gnus-gcc-mark-as-read t
32 message-signature (or (file-exists-p message-signature-file) 78 message-signature (or (file-exists-p message-signature-file)