summary refs log tree commit diff stats
path: root/gnus.el
diff options
context:
space:
mode:
Diffstat (limited to 'gnus.el')
-rw-r--r--gnus.el101
1 files changed, 54 insertions, 47 deletions
diff --git a/gnus.el b/gnus.el index 35e9a51..1b550f1 100644 --- a/gnus.el +++ b/gnus.el
@@ -35,59 +35,15 @@
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;; Keybindings 48;; Keybindings
93(define-key gnus-group-mode-map (kbd "q") 49(define-key gnus-group-mode-map (kbd "q")
@@ -142,6 +98,11 @@
142(setq mm-discouraged-alternatives '("text/html" 98(setq mm-discouraged-alternatives '("text/html"
143 "text/richtext")) 99 "text/richtext"))
144 100
101(with-eval-after-load 'mailcap
102 (cond ((eq system-type 'darwin))
103 ((eq system-type 'windows-nt))
104 (t (mailcap-parse-mailcaps))))
105
145;;; Composing mail 106;;; Composing mail
146(hook-defun setup-message-mode message-mode-hook 107(hook-defun setup-message-mode message-mode-hook
147 (flyspell-mode +1) 108 (flyspell-mode +1)
@@ -174,3 +135,49 @@
174 bbdb-use-pop-up t 135 bbdb-use-pop-up t
175 bbdb-offer-save 1 136 bbdb-offer-save 1
176 bbdb-update-records-p t)) 137 bbdb-update-records-p t))
138
139;;; Gnus subscriptions
140(setq gnus-options-subscribe (rx (or ;; all alternatives go under this
141 (seq string-start
142 "nnimap+fastmail.com:"
143 (or ;; folders in Fastmail
144 "INBOX")))
145 (seq string-start
146 "nntp+news.tilde.club:"
147 (or ;; news groups in tilde.club
148 (seq "local."
149 (or "general"))
150 (seq "tilde."
151 (or "art"
152 "club"
153 "cosmic"
154 "food+drink"
155 "gopher"
156 "meta"
157 "poetry"
158 "services"))))))
159
160(setq gnus-options-not-subscribe (rx (or ;; all alternatives go under this
161 (seq string-start
162 "nnimap+fastmail.com:"
163 (or ;; folders in Fastmail
164 "Archive"
165 "Bulk"
166 "DeltaChat"
167 "Gmail"
168 "Pam"
169 "Spam"
170 "Trash"
171 "blag"
172 "notes"))
173 (seq string-start
174 "nntp+news.tilde.club:"
175 (or ;; news groups in tilde.club
176 (seq "tilde."
177 (or "black"
178 "javascript"
179 "nsfw"
180 "php"
181 "pink"
182 "python"
183 "your")))))))