Commit | Line | Data |
---|---|---|
5252f79a MW |
1 | ;;; -*-emacs-lisp-*- |
2 | ;;; | |
3 | ;;; Local GNUS configuration -- distorted.org.uk version | |
4 | ;;; | |
5 | ;;; (c) 2014 Mark Wooding | |
6 | ;;; | |
7 | ||
8 | ;;;-------------------------------------------------------------------------- | |
789a48fe MW |
9 | ;;; How to send mail. |
10 | ||
11 | (and nil | |
12 | (setq smtpmail-smtp-server "mail.distorted.org.uk" | |
13 | smtpmail-sendto-domain "distorted.org.uk" | |
14 | smtpmail-smtp-service 587 | |
15 | smtpmail-auth-credentials "~/.gnus.authinfo" | |
16 | message-send-mail-function 'smtpmail-send-it | |
17 | smtpmail-starttls-credentials | |
18 | '(("mail.distorted.org.uk" 587 "" "")))) | |
19 | ||
20 | ;;;-------------------------------------------------------------------------- | |
5252f79a MW |
21 | ;;; Where we get mail from. |
22 | ||
23 | ;; Read mail on the IMAP server. | |
24 | (setq gnus-secondary-select-methods | |
25 | '((nnimap "distorted" | |
26 | (nnimap-address "mail.distorted.org.uk") | |
27 | (nnimap-stream tls) | |
9adf6847 MW |
28 | (nnimap-authinfo-file "~/.gnus.authinfo")) |
29 | (nnimap "google" | |
30 | (nnimap-address "imap.gmail.com") | |
31 | (nnimap-stream tls) | |
5252f79a MW |
32 | (nnimap-authinfo-file "~/.gnus.authinfo")))) |
33 | ||
34 | ;; Send sent mail back to me. | |
35 | (setq gnus-message-archive-method "mail" | |
36 | gnus-gcc-mark-as-read t | |
37 | gnus-message-archive-group "nnimap+distorted:mail.sent") | |
38 | ||
39 | ;;;-------------------------------------------------------------------------- | |
40 | ;;; Mail group configuration. | |
41 | ||
42 | ;; General splitting configuration. | |
43 | (setq nnimap-split-inbox '("INBOX" "to.split") | |
44 | nnimap-split-rule 'nnimap-split-fancy | |
45 | nnimap-split-crosspost t | |
46 | nnimap-split-predicate "UNDELETED" | |
47 | nnmail-split-fancy-match-partial-words nil) | |
48 | ||
49 | ;; Automatic expiry for particular groups. | |
50 | (setq gnus-auto-expirable-newsgroups | |
51 | "^nnimap\\+distorted:\\(crap\\|spam\\|admin\\|lists\\|nag\\)\\..*") | |
52 | ||
53 | ;; Mail sent to `mdw-nospam-THING' should appear to come from this address. | |
54 | (setq gnus-posting-styles | |
55 | '(((and (string-match "^nnimap\\+distorted:crap\\.\\(.*\\)$" | |
56 | gnus-newsgroup-name) | |
57 | (setq mdw-from-address | |
58 | (replace-match "mdw-nospam-\\1@distorted.org.uk" | |
59 | nil nil gnus-newsgroup-name))) | |
60 | ("From" mdw-from-address)))) | |
61 | ||
62 | ;; The actual splitting rules. | |
63 | (setq nnimap-split-fancy | |
64 | '(| (to "\\<\\(news\\|newsmaster\\|usenet\\)@" "admin.news" t) | |
65 | (to "\\<hostmaster@" "admin.dns" t) | |
66 | (to "\\<postmaster@" "admin.mail" t) | |
67 | (to "\\<\\(root\\|mirror\\|postgres\\|spamd\\)@" "admin.misc" t) | |
68 | (to "python-list@python\\.org" "lists.python") | |
5252f79a | 69 | (to "mdw-nospam-\\([^@]+\\)@" "crap.\\1" t) |
5252f79a MW |
70 | (from "support@jump\\.net\\.uk" "keep.colo") |
71 | (from "\\(sealbot\\|cardbot\\)@ncipher\\.com" "nag.cardbot") | |
72 | (from "\\<mailman-owner@" "nag.mailman" t) | |
73 | (from "cron daemon" "admin.misc") | |
74 | (from "uucp@distorted\\.org\\.uk" "admin.uucp") | |
75 | (from "darchive@.*\\.distorted\\.org\\.uk" "admin.misc") | |
76 | (from "@\\(.*\\.\\)?lovefilm\\.com" "spam.lovefilm" t) | |
77 | (from "@amazon\\." "spam.amazon" t) | |
78 | (from "@cineworldmail\\.com" "spam.cineworld" t) | |
79 | (from "@picturehouses\\.co\\.uk" "spam.picturehouse" t) | |
80 | (from "@nationwide" "spam.nationwide" t) | |
81 | (from "@news\\.spotifymail\\.com" "spam.spotify" t) | |
82 | (from "@action\\.openrightsgroup\\.org" "spam.org" t) | |
83 | (from "unlimited@cineworld\\.com" "spam.cineworld" t) | |
84 | (from "nationwide@securesuiteemail\\.com" "spam.nationwide" t) | |
85 | (from "@tshirthell\\.com" "spam.tshirt-hell" t) | |
86 | "mail.misc")) | |
87 | ||
88 | ;;;----- That's all, folks -------------------------------------------------- |