diff options
| -rw-r--r-- | gnus.el | 101 | ||||
| -rw-r--r-- | init.el | 2 |
2 files changed, 55 insertions, 48 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"))))))) | ||
| diff --git a/init.el b/init.el index ef50dc7..07f856c 100644 --- a/init.el +++ b/init.el | |||
| @@ -1016,7 +1016,7 @@ if ripgrep is installed, otherwise `consult-grep'." | |||
| 1016 | ;; Otherwise, wait | 1016 | ;; Otherwise, wait |
| 1017 | (t which-key-idle-delay))) | 1017 | (t which-key-idle-delay))) |
| 1018 | 1018 | ||
| 1019 | (which-key-setup-minibuffer) | 1019 | (which-key-setup-side-window-right-bottom) |
| 1020 | (which-key-mode +1)) | 1020 | (which-key-mode +1)) |
| 1021 | 1021 | ||
| 1022 | (setup (:straight winum) | 1022 | (setup (:straight winum) |