diff options
Diffstat (limited to 'gnus.el')
-rw-r--r-- | gnus.el | 13 |
1 files changed, 11 insertions, 2 deletions
diff --git a/gnus.el b/gnus.el index 846966d..db7b0c9 100644 --- a/gnus.el +++ b/gnus.el | |||
@@ -25,12 +25,15 @@ | |||
25 | (nnimap-server-port 993) | 25 | (nnimap-server-port 993) |
26 | (nnimap-stream ssl) | 26 | (nnimap-stream ssl) |
27 | (nnir-search-engine imap)) | 27 | (nnir-search-engine imap)) |
28 | (nntp "news.tilde.club"))) | 28 | (nntp "news.tilde.club") |
29 | (nntp "news.gwene.org"))) | ||
29 | 30 | ||
30 | ;;; Gnus cloud | 31 | ;;; Gnus cloud |
31 | (setq gnus-cloud-method "nnimap:fastmail.com" | 32 | (setq gnus-cloud-method "nnimap:fastmail.com" |
32 | gnus-cloud-storage-method 'base64 ; Don't always have GPG or gzip | 33 | gnus-cloud-storage-method 'base64 ; Don't always have GPG or gzip |
33 | ) | 34 | ) |
35 | (add-hook 'gnus-started-hook #'gnus-cloud-download-all-data) | ||
36 | (add-hook 'gnus-exit-gnus-hook #'gnus-cloud-upload-all-data) | ||
34 | 37 | ||
35 | ;;; Gnus subscriptions | 38 | ;;; Gnus subscriptions |
36 | (setq gnus-options-subscribe (rx (or ;; all alternatives go under this | 39 | (setq gnus-options-subscribe (rx (or ;; all alternatives go under this |
@@ -83,7 +86,8 @@ | |||
83 | message-signature (or (file-exists-p message-signature-file) | 86 | message-signature (or (file-exists-p message-signature-file) |
84 | "~ acdw") | 87 | "~ acdw") |
85 | gnus-save-newsrc-file nil | 88 | gnus-save-newsrc-file nil |
86 | gnus-read-newsrc-file nil) | 89 | gnus-read-newsrc-file nil |
90 | gnus-interactive-exit nil) | ||
87 | 91 | ||
88 | ;;; Other parameters | 92 | ;;; Other parameters |
89 | (setq gnus-parameters | 93 | (setq gnus-parameters |
@@ -129,6 +133,11 @@ | |||
129 | (setq mm-discouraged-alternatives '("text/html" | 133 | (setq mm-discouraged-alternatives '("text/html" |
130 | "text/richtext")) | 134 | "text/richtext")) |
131 | 135 | ||
136 | ;;; Composing mail | ||
137 | (hook-defun setup-message-mode message-mode-hook | ||
138 | (flyspell-mode +1) | ||
139 | (local-set-key (kbd "TAB") #'bbdb-complete-mail)) | ||
140 | |||
132 | ;;; Sending mail | 141 | ;;; Sending mail |
133 | (setq send-mail-function #'smtpmail-send-it | 142 | (setq send-mail-function #'smtpmail-send-it |
134 | message-send-mail-function #'smtpmail-send-it | 143 | message-send-mail-function #'smtpmail-send-it |