summary refs log tree commit diff stats
diff options
context:
space:
mode:
-rw-r--r--gnus.el98
1 files 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 @@
35(add-hook 'gnus-started-hook #'gnus-cloud-download-all-data) 35(add-hook 'gnus-started-hook #'gnus-cloud-download-all-data)
36(add-hook 'gnus-exit-gnus-hook #'gnus-cloud-upload-all-data) 36(add-hook 'gnus-exit-gnus-hook #'gnus-cloud-upload-all-data)
37 37
38;;; Gnus subscriptions
39(setq gnus-options-subscribe (rx (or ;; all alternatives go under this
40 (seq string-start
41 "nnimap+fastmail.com:"
42 (or ;; folders in Fastmail
43 "INBOX")))
44 (seq string-start
45 "nntp+news.tilde.club:"
46 (or ;; news groups in tilde.club
47 (seq "local."
48 (or "general"))
49 (seq "tilde."
50 (or "art"
51 "club"
52 "cosmic"
53 "food+drink"
54 "gopher"
55 "meta"
56 "poetry"
57 "services"))))))
58
59(setq gnus-options-not-subscribe (rx (or ;; all alternatives go under this
60 (seq string-start
61 "nnimap+fastmail.com:"
62 (or ;; folders in Fastmail
63 "Archive"
64 "Bulk"
65 "DeltaChat"
66 "Gmail"
67 "Pam"
68 "Spam"
69 "Trash"
70 "blag"
71 "notes"))
72 (seq string-start
73 "nntp+news.tilde.club:"
74 (or ;; news groups in tilde.club
75 (seq "tilde."
76 (or "black"
77 "javascript"
78 "nsfw"
79 "php"
80 "pink"
81 "python"
82 "your")))))))
83
84;;; Gnus behavior options 38;;; Gnus behavior options
85(setq gnus-gcc-mark-as-read t 39(setq gnus-gcc-mark-as-read t
86 message-signature (or (file-exists-p message-signature-file) 40 message-signature (or (file-exists-p message-signature-file)
87 "~ acdw") 41 "~ acdw")
88 gnus-save-newsrc-file nil 42 gnus-save-newsrc-file nil
89 gnus-read-newsrc-file nil 43 gnus-read-newsrc-file nil
90 gnus-interactive-exit nil) 44 gnus-interactive-exit nil
45 gnus-use-cache t
46 gnus-read-active-file 'some)
91 47
92;;; Other parameters 48;;; Other parameters
93(setq gnus-parameters 49(setq gnus-parameters
94 '(("nnimap\\.*" 50 '(("nnimap\\.*"
95 (display . all)))) 51 (display . 200))))
96 52
97;;; Gnus UI options 53;;; Gnus UI options
98(setq gnus-thread-sort-functions '(gnus-thread-sort-by-most-recent-date 54(setq gnus-thread-sort-functions '(gnus-thread-sort-by-most-recent-date
@@ -170,3 +126,49 @@
170 bbdb-use-pop-up t 126 bbdb-use-pop-up t
171 bbdb-offer-save 1 127 bbdb-offer-save 1
172 bbdb-update-records-p t)) 128 bbdb-update-records-p t))
129
130;;; Gnus subscriptions
131(setq gnus-options-subscribe (rx (or ;; all alternatives go under this
132 (seq string-start
133 "nnimap+fastmail.com:"
134 (or ;; folders in Fastmail
135 "INBOX")))
136 (seq string-start
137 "nntp+news.tilde.club:"
138 (or ;; news groups in tilde.club
139 (seq "local."
140 (or "general"))
141 (seq "tilde."
142 (or "art"
143 "club"
144 "cosmic"
145 "food+drink"
146 "gopher"
147 "meta"
148 "poetry"
149 "services"))))))
150
151(setq gnus-options-not-subscribe (rx (or ;; all alternatives go under this
152 (seq string-start
153 "nnimap+fastmail.com:"
154 (or ;; folders in Fastmail
155 "Archive"
156 "Bulk"
157 "DeltaChat"
158 "Gmail"
159 "Pam"
160 "Spam"
161 "Trash"
162 "blag"
163 "notes"))
164 (seq string-start
165 "nntp+news.tilde.club:"
166 (or ;; news groups in tilde.club
167 (seq "tilde."
168 (or "black"
169 "javascript"
170 "nsfw"
171 "php"
172 "pink"
173 "python"
174 "your")))))))