-
Notifications
You must be signed in to change notification settings - Fork 1
/
Copy pathgnus-init.el
166 lines (146 loc) · 7.02 KB
/
gnus-init.el
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
(require 'spam)
(require 'epg-config)
(require 'epa-mail)
(gnus-registry-initialize)
(spam-initialize)
(setq-default gnus-asynchronous t)
(setq-default gnus-novice-user nil)
(setq-default gnus-use-cache t)
(setq gnus-registry-max-entries 2500
gnus-registry-use-long-group-names t)
;;(setq imap-ssl-program "/usr/sbin/stunnel -c -A /etc/certs/ -v 2 -S 0 -f -r %s:%p")
;; EasyPG Assistant settings
;; personalization
(setq user-full-name "Aycan iRiCAN")
(setenv "ORGANIZATION" "Kor Ltd.")
(setq user-mail-address "[email protected]"
query-user-mail-address nil
mail-user-agent gnus-user-agent)
(setq gnus-select-method '(nnimap "coregentr"
(nnimap-address "imap.core.gen.tr")
(nnimap-server-port 993)
(nnimap-stream ssl)
(nnimap-inbox "INBOX")
(nnimap-unsplittable-articles nil)
(nnimap-authenticator login)
(nnimap-expunge-on-close always)
(setq nnimap-nov-is-evil t)
(nnimap-list-pattern ("INBOX" "*"))
(nnimap-split-methods 'nnmail-split-fancy)))
(setq gnus-secondary-select-methods '((nntp "news.gwene.org")))
(setq nnmail-split-abbrev-alist
'((any .
"from\\|to\\|cc\\|sender\\|apparently-to\\|resent-from\\|resent-to\\|resent-cc")
(mail . "mailer-daemon\\|postmaster\\|uucp")
(to . "to\\|cc\\|apparently-to\\|resent-to\\|resent-cc")
(from . "from\\|sender\\|resent-from")
(daemon-errors . "Cron daemon\\|mailer-daemon")
(list . "list-id\\|x-mailing-list\\|to\\|cc\\|sender")))
(setq nnimap-split-rules '(("coregentr" ("INBOX" nnimap-split-fancy)))
nnimap-split-fancy
'(| (: gnus-registry-split-fancy-with-parent)
(: spam-split 'spam-use-regex-headers)
("List-Id" ".*full-disclosure.lists.grok.org.uk.*" "INBOX.Lists.Full-Disclosure")
("List-Id" ".*haskell-cafe.haskell.org.*" "INBOX.Lists.haskell-cafe")
("List-Id" ".*xmonad.haskell.org.*" "INBOX.Lists.XMonad")
("List-Id" ".*elephant-devel.common-lisp.net.*" "INBOX.Lists.Elephant-Devel")
("List-Id" ".*plt-scheme.list.cs.brown.edu.*" "INBOX.Lists.Plt-scheme")
("List-Id" ".*slime-devel.common-lisp.net.*" "INBOX.Lists.Slime-Devel")
("List-Id" ".*sbcl-devel.lists.sourceforge.net.*" "INBOX.Lists.sbcl-devel")
("List-Id" ".*nix-dev.cs.uu.nl.*" "INBOX.Lists.Nixos")
("List-Id" ".*Humak.yahoogroups.com.*" "INBOX.Lists.HUMAK")
("List-Id" ".*gambit-list.iro.umontreal.ca.*" "INBOX.Lists.Gambit")
("List-Id" ".*bese-devel.common-lisp.net.*" "INBOX.Lists.Bese-Devel")
("List-Id" ".*happs.googlegroups.com.*" "INBOX.Lists.HAppS")
("List-Id" ".*cs-lisp.cs.bilgi.edu.tr.*" "INBOX.Lists.CS-Lisp")
("List-Id" ".*[email protected].*" "INBOX.Lists.Bese-Devel")
("List-Id" ".*rucksack-devel.common-lisp.net.*" "INBOX.Lists.rucksack")
("List-Id" ".*tmb_list.yahoogroups.com.*" "INBOX.Lists.TMB_Lisp")
("List-Id" ".*iolib-devel.common-lisp.net.*" "INBOX.Lists.iolib-devel")
("List-Id" ".*flapjax.googlegroups.com.*" "INBOX.Lists.flapjax")
("List-Id" ".*core-server.googlegroups.com.*" "INBOX.Lists.core-server")
("List-Id" ".*snow-users-list.iro.umontreal.ca.*" "INBOX.Lists.snow")
("List-Id" ".*gardeners.lispniks.com.*" "INBOX.Lists.Gardeners")
("List-Id" ".*reactive.haskell.org.*" "INBOX.Lists.reactive")
("List-Id" ".*web-devel.haskell.org.*" "INBOX.Lists.web-devel")
("List-Id" ".*haskell-platform.projects.haskell.org.*" "INBOX.Lists.haskell-platform")
("List-Id" ".*debian-haskell.lists.debian.org.*" "INBOX.Lists.haskell-debian")
("List-Id" ".*movitz-devel.common-lisp.net.*" "INBOX.Lists.Movitz-Devel")
("List-Id" ".*glasgow-haskell-users.haskell.org.*" "INBOX.Lists.haskell-ghc")
("List-Id" ".*users.dragonflybsd.org.*" "INBOX.Lists.dfly-users")
;;("X-Spam-Status" "Yes.*" "INBOX.Spamassassined")
;;("subject" "Backup report" "INBOX.backupreports")
;;("from" "MAILER-DAEMON@example\\.com" "INBOX.example.mailer-daemon")
(: spam-split)
"INBOX.mail.unsorted"))
(setq mml2015-use 'epg
mml2015-verbose t
mml2015-signers '("2D002BBF")
epg-user-id "2D002BBF"
mml2015-encrypt-to-self t
mml2015-always-trust nil
mml2015-cache-passphrase t
mml2015-passphrase-cache-expiry '36000
mml2015-sign-with-sender t
gnus-message-replyencrypt t
gnus-message-replysign t
gnus-message-replysignencrypted t
gnus-treat-x-pgp-sig t
;; mm-sign-option 'guided
;; mm-encrypt-option 'guided
mm-verify-option 'always
mm-decrypt-option 'always
gnus-buttonized-mime-types
'("multipart/alternative"
"multipart/encrypted"
"multipart/signed")
epg-debug t ;; then read the *epg-debug*" buffer
)
;; Customizations
(set (if (< emacs-major-version 24) 'nnimap-split-inbox 'nnimap-inbox) "INBOX")
(setq spam-use-bogofilter t
spam-log-to-registry t
;; spam-use-BBDB t
spam-use-regex-headers t
spam-mark-only-unseen-as-spam t
spam-split-group "INBOX.Spam"
nnimap-split-download-body t
spam-move-spam-nonspam-groups-only nil
spam-mark-only-unseen-as-spam t
spam-mark-ham-unread-before-move-from-spam-group t
query-user-mail-address nil
mail-user-agent gnus-user-agent
nnimap-split-predicate "UNDELETED"
nnimap-split-crosspost nil
imap-ssl-program "openssl s_client -quiet -ssl3 -connect %s:%p"
;; imap-ssl-program "/usr/sbin/stunnel -c -A /etc/certs/ -v 2 -S 0 -f -r %s:%p"
;; mm-verify-option 'always
;; mm-decrypt-option 'always
message-send-mail-function 'smtpmail-send-it
smtpmail-smtp-server "mail.core.gen.tr"
smtpmail-auth-credentials "~/.authinfo"
smtpmail-starttls-credentials '(("mail.core.gen.tr" 587 nil nil))
smtpmail-default-smtp-server "mail.core.gen.tr"
smtpmail-smtp-service 587
nnimap-authinfo-file "~/.authinfo"
starttls-gnutls-program "gnutls-cli"
starttls-extra-arguments '("--insecure")
starttls-use-gnutls t
gnus-asynchronous t
gnus-use-demon t
gnus-agent-expire-days 12
gnus-visible-headers '("^From" "^To" "^Cc" "^Bcc" "^Subject" "^Date" "^User-Agent")
gnus-save-newsrc-file nil
gnus-read-newsrc-file nil
message-forward-as-mime nil)
;; No HTML mail
(setq gnus-buttonized-mime-types
'("multipart/alternative" "multipart/signed")
mm-discouraged-alternatives
'("text/html" "image/.*"))
(setq gnus-outgoing-message-group
'(lambda () (list (if (message-mail-p) gnus-newsgroup-name)
"nnimap+coregentr:INBOX.Sent")))
(add-hook 'dired-mode-hook 'turn-on-gnus-dired-mode)
(gnus-demon-add-handler 'gnus-group-get-new-news 10 2)
(add-hook 'gnus-group-mode-hook 'gnus-topic-mode)