acdw/emacs
acdw
/
emacs
1
2
Fork 0
Code Issues 4 Pull Requests Releases Activity

Move gnus subscriptions

This commit is contained in:
Case Duckworth 2021-05-04 19:58:05 -05:00
parent 21e17e1563
commit 34107b130a
1 changed files with 50 additions and 48 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

98
gnus.el
View File

@ -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")))))))