Merge branch 'main' of https://tildegit.org/acdw/emacs

1 files changed, 11 insertions, 2 deletions

@@ -25,12 +25,15 @@
                 (nnimap-server-port 993)
                 (nnimap-stream ssl)
                 (nnir-search-engine imap))
-        (nntp "news.tilde.club")))
+        (nntp "news.tilde.club")
+        (nntp "news.gwene.org")))
 
 ;;; Gnus cloud
 (setq gnus-cloud-method "nnimap:fastmail.com"
       gnus-cloud-storage-method 'base64 ; Don't always have GPG or gzip
       )
+(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
@@ -83,7 +86,8 @@
       message-signature (or (file-exists-p message-signature-file)
                             "~ acdw")
       gnus-save-newsrc-file nil
-      gnus-read-newsrc-file nil)
+      gnus-read-newsrc-file nil
+      gnus-interactive-exit nil)
 
 ;;; Other parameters
 (setq gnus-parameters
@@ -129,6 +133,11 @@
 (setq mm-discouraged-alternatives '("text/html"
                                     "text/richtext"))
 
+;;; Composing mail
+(hook-defun setup-message-mode message-mode-hook
+  (flyspell-mode +1)
+  (local-set-key (kbd "TAB") #'bbdb-complete-mail))
+
 ;;; Sending mail
 (setq send-mail-function #'smtpmail-send-it
       message-send-mail-function #'smtpmail-send-it