summary refs log tree commit diff stats
path: root/gnus.el
diff options
context:
space:
mode:
authorCase Duckworth2021-06-02 23:36:43 -0500
committerCase Duckworth2021-06-02 23:36:43 -0500
commit0f7abf0795960b5ef23e102b893e0166d143c869 (patch)
treef10f11e58b015d2700a613367c03129763ad33b9 /gnus.el
parentIgnore private.el (diff)
downloademacs-0f7abf0795960b5ef23e102b893e0166d143c869.tar.gz
emacs-0f7abf0795960b5ef23e102b893e0166d143c869.zip
Make some things private-r
Sure you can check the history.  But who knows what I've changed?!?!?! MYSTERY
Diffstat (limited to 'gnus.el')
-rw-r--r--gnus.el37
1 files changed, 15 insertions, 22 deletions
diff --git a/gnus.el b/gnus.el index 8c06855..d179937 100644 --- a/gnus.el +++ b/gnus.el
@@ -16,22 +16,25 @@
16 16
17;;; Code: 17;;; Code:
18 18
19;;; Private files
20(require 'acdw-private)
21
19;;; Select Methods 22;;; Select Methods
20(setq gnus-select-method '(nnnil "")) 23(setq gnus-select-method '(nnnil ""))
21 24
22(setq gnus-secondary-select-methods 25(add-hook 'gnus-startup-hook
23 '((nnimap "fastmail.com" 26 (defun gnus-startup@feed-setup ()
24 (nnimap-address "imap.fastmail.com") 27 (cond ((fboundp #'gnus/init-feed-list)
25 (nnimap-server-port 993) 28 (gnus/init-feed-list))
26 (nnimap-stream ssl) 29 ((and (fboundp #'gnus/import-feed-list)
27 (nnir-search-engine imap)) 30 (file-exists-p (expand-file-name
28 (nntp "news.tilde.club") 31 "feeds.txt" user-emacs-directory)))
29 (nntp "news.gwene.org") 32 (gnus/import-feed-list (expand-file-name
30 (nntp "news.gmane.io"))) 33 "feeds.txt" user-emacs-directory)))
34 (t (message "Oops, no feeds :/")))))
31 35
32;;; Gnus cloud 36;;; Gnus cloud
33(setq gnus-cloud-method "nnimap:fastmail.com" 37(setq gnus-cloud-storage-method nil ; Don't always have GPG or gzip
34 gnus-cloud-storage-method nil ; Don't always have GPG or gzip
35 gnus-cloud-covered-servers '("nntp:news.tilde.club" 38 gnus-cloud-covered-servers '("nntp:news.tilde.club"
36 "nntp:news.gwene.org" 39 "nntp:news.gwene.org"
37 "nntp:news.gmane.io")) 40 "nntp:news.gmane.io"))
@@ -61,7 +64,7 @@
61 64
62;;; Other parameters 65;;; Other parameters
63(setq gnus-parameters 66(setq gnus-parameters
64 '(("nnimap\\+fastmail.com:.*" 67 '(("fastmail.com:.*"
65 (display . 200) 68 (display . 200)
66 (expiry-wait . immediate) 69 (expiry-wait . immediate)
67 (expiry-target . "nnimap+fastmail.com:Archive")))) 70 (expiry-target . "nnimap+fastmail.com:Archive"))))
@@ -116,16 +119,6 @@
116 (flyspell-mode +1) 119 (flyspell-mode +1)
117 (local-set-key (kbd "TAB") #'bbdb-complete-mail))) 120 (local-set-key (kbd "TAB") #'bbdb-complete-mail)))
118 121
119;;; Sending mail
120(setq send-mail-function #'smtpmail-send-it
121 message-send-mail-function #'smtpmail-send-it
122 smtpmail-smtp-server "smtp.fastmail.com"
123 smtpmail-default-smtp-server "smtp.fastmail.com"
124 smtpmail-smtp-service 465
125 smtpmail-stream-type 'ssl
126 smtpmail-smtp-user "acdw@fastmail.com"
127 message-kill-buffer-on-exit t)
128
129;;; Packages 122;;; Packages
130 123
131;; searching (?) 124;; searching (?)