diff options
| author | Case Duckworth | 2021-04-27 17:20:17 -0500 |
|---|---|---|
| committer | Case Duckworth | 2021-04-27 17:20:17 -0500 |
| commit | 693ef0e7d05ec05331c237a1cbe28357f399f507 (patch) | |
| tree | e42f251cbe57f2b5f38bf332ae25b8e77ff358ab | |
| parent | Add prefix arg to pull ~/.emacs from git (diff) | |
| download | emacs-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.el | 46 |
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) |