From 0f7abf0795960b5ef23e102b893e0166d143c869 Mon Sep 17 00:00:00 2001
From: Case Duckworth
Date: Wed, 2 Jun 2021 23:36:43 -0500
Subject: Make some things private-r

Sure you can check the history.  But who knows what I've changed?!?!?! MYSTERY
---
 gnus.el | 37 +++++++++++++++----------------------
 1 file changed, 15 insertions(+), 22 deletions(-)

(limited to 'gnus.el')

diff --git a/gnus.el b/gnus.el
index 8c06855..d179937 100644
--- a/gnus.el
+++ b/gnus.el
@@ -16,22 +16,25 @@
 
 ;;; Code:
 
+;;; Private files
+(require 'acdw-private)
+
 ;;; Select Methods
 (setq gnus-select-method '(nnnil ""))
 
-(setq gnus-secondary-select-methods
-      '((nnimap "fastmail.com"
-                (nnimap-address "imap.fastmail.com")
-                (nnimap-server-port 993)
-                (nnimap-stream ssl)
-                (nnir-search-engine imap))
-        (nntp "news.tilde.club")
-        (nntp "news.gwene.org")
-        (nntp "news.gmane.io")))
+(add-hook 'gnus-startup-hook
+          (defun gnus-startup@feed-setup ()
+            (cond ((fboundp #'gnus/init-feed-list)
+                   (gnus/init-feed-list))
+                  ((and (fboundp #'gnus/import-feed-list)
+                        (file-exists-p (expand-file-name
+                                        "feeds.txt" user-emacs-directory)))
+                   (gnus/import-feed-list (expand-file-name
+                                           "feeds.txt" user-emacs-directory)))
+                  (t (message "Oops, no feeds :/")))))
 
 ;;; Gnus cloud
-(setq gnus-cloud-method "nnimap:fastmail.com"
-      gnus-cloud-storage-method nil ; Don't always have GPG or gzip
+(setq gnus-cloud-storage-method nil ; Don't always have GPG or gzip
       gnus-cloud-covered-servers '("nntp:news.tilde.club"
                                    "nntp:news.gwene.org"
                                    "nntp:news.gmane.io"))
@@ -61,7 +64,7 @@
 
 ;;; Other parameters
 (setq gnus-parameters
-      '(("nnimap\\+fastmail.com:.*"
+      '(("fastmail.com:.*"
          (display . 200)
          (expiry-wait . immediate)
          (expiry-target . "nnimap+fastmail.com:Archive"))))
@@ -116,16 +119,6 @@
             (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
-      smtpmail-smtp-server "smtp.fastmail.com"
-      smtpmail-default-smtp-server "smtp.fastmail.com"
-      smtpmail-smtp-service 465
-      smtpmail-stream-type 'ssl
-      smtpmail-smtp-user "acdw@fastmail.com"
-      message-kill-buffer-on-exit t)
-
 ;;; Packages
 
 ;; searching (?)
-- 
cgit 1.4.1-21-gabe81