X-Git-Url: https://git.distorted.org.uk/~mdw/profile/blobdiff_plain/10e5592862e9ae23867562bb9c8d734a8ef08760..1fe0e9b30ccdd5a65bb0aa419e50a46782d4dc24:/dot/gnus-local.el.distorted diff --git a/dot/gnus-local.el.distorted b/dot/gnus-local.el.distorted index 98047cc..e7e7f52 100644 --- a/dot/gnus-local.el.distorted +++ b/dot/gnus-local.el.distorted @@ -5,17 +5,8 @@ ;;; (c) 2014 Mark Wooding ;;; -;;;-------------------------------------------------------------------------- -;;; Random configuration. - (setq auth-sources '("~/.gnus.authinfo")) -(remove-hook 'gnus-mark-article-hook - 'gnus-summary-mark-read-and-unread-as-read) -(add-hook 'gnus-mark-article-hook 'gnus-summary-mark-unread-as-read) - -(setq gnus-level-unsubscribed 6) - ;;;-------------------------------------------------------------------------- ;;; How to send mail. @@ -73,7 +64,7 @@ (setq gnus-auto-expirable-newsgroups (concat "^" "\\(nnimap\\+[^:]+\\|nnvirtual\\):" - "\\(" "\\(admin\\|crap\\|lists\\|nag\\|spam\\)\\." + "\\(" "\\(admin\\|crap\\|lists\\|nag\\)\\." "\\|" "spam\\.oubliette" "\\)")) @@ -81,18 +72,18 @@ (setq message-alternative-emails bbdb-user-mail-names message-dont-reply-to-names message-alternative-emails) -;; Mail sent to `mdw-nospam-THING' should appear to come from this address. -(setq gnus-posting-styles - '(("^nnimap\\+distorted:crap\\." - (address (concat "mdw-nospam-" - (substring gnus-newsgroup-name (match-end 0)) - "@distorted.org.uk"))) - ("^nnimap\\+[^:]+-chiark:" - ("X-mdw-Send-Mail" "chiark-smtp")) - ("^nnimap\\+google:" - (address "distorted.mdw@gmail.com") - ("X-mdw-Send-Mail" "gmail-smtp")))) - +;; Augment Gnus's built-in header-list abbreviations. +(require 'nnmail) +(setq nnmail-split-abbrev-alist + (mdw-uniquify-alist + `((to . ,(concat "to\\|cc\\|apparently-to\\|envelope-to\\|" + "resent-to\\|resent-cc")) + (any . ,(concat "from\\|sender\\|resent-from\\|" + "to\\|cc\\|apparently-to\\|envelope-to\\|" + "resent-to\\|resent-cc")) + ,@nnmail-split-abbrev-alist))) + +;; Find out about my `odin.gg' mappings. (defvar mdw-odin-parse-regexp (concat "^" "\\S-+" "\\s-+" ; time limit @@ -101,8 +92,10 @@ "=" "\\(" "\\S-+" "\\)" ; mailbox tag "\\(" "$" "\\|" "\\s-" "\\)")) -(defun mdw-odin-splits () - (let ((list nil)) +(defvar mdw-odin-splits nil) + +(defun mdw-update-odin-info () + (let ((splits nil)) (with-temp-buffer (call-process "ssh" nil t nil "stratocaster" "userv" "odin" "mail" "list") @@ -113,9 +106,23 @@ (tag (match-string 2))) (push `(to ,(format "%s@odin\\.gg" local-part) ,(format "crap.%s" tag)) - list))) + splits))) (forward-line))) - (nreverse list))) + (setq mdw-odin-splits (nreverse splits)))) +(mdw-update-odin-info) + +;; Mail sent to `mdw-nospam-THING' should appear to come from this address. +(setq gnus-posting-styles + '(("^nnimap\\+distorted:crap\\." + (address (let* ((mailbox (substring gnus-newsgroup-name + (match-end 0))) + (entry (assoc mailbox mdw-odin-sender-alist))) + (concat "mdw-nospam-" mailbox "@distorted.org.uk")))) + ("^nnimap\\+[^:]+-chiark:" + ("X-mdw-Send-Mail" "chiark-smtp")) + ("^nnimap\\+google:" + (address "distorted.mdw@gmail.com") + ("X-mdw-Send-Mail" "gmail-smtp")))) ;; The actual splitting rules. (setq nnmail-split-fancy @@ -135,19 +142,29 @@ (from "darchive@.*\\.distorted\\.org\\.uk" "admin.misc") (from "support@aa\\.net\\.uk" "admin.aaisp") (from "bugs@distorted\\.org\\.uk" "admin.bugs") + (from "darchive@distorted\\.org\\.uk" "admin.darchive") - ;; Colo provider. + ;; Colo and network provider. (from "\\(accounts\\|support\\)@jump\\.net\\.uk" "keep.colo") + (from "\\(accounts\\|support\\)@aa\\.net\\.uk" "keep.aaisp") ;; Mailing lists, not split out earlier. (to "python-list@python\\.org" "lists.python") - (to "\\(jump-\\(announce\\|discuss\\)\\)@\\(lists\\.\\)jump\\.net\\.uk" - "lists.jump-\\1") + (to ,(concat "\\(jump-\\(announce\\|discuss\\)\\)@" + "\\(lists\\.\\|\\)" "jump\\.net\\.uk") + "lists.\\1") (to "cambridgecryptowhiskyclub@gmail\\.com" "lists.cambridge-crypto-whisky") - (from "@liberty-human-rights\\.org\\.uk\\>" "lists.liberty" t) - (from "@libertymail\\.org\\.uk\\>" "lists.liberty" t) + (from ,(concat "@" "\\(" "liberty-human-rights" + "\\|" "libertyhumanrights" + "\\|" "libertymail" + "\\)" "\\.org\\.uk" "\\>") + "lists.liberty" t) (from "@openrightsgroup\\.org\\>" "lists.org" t) + (from "@warwick\\.ac\\.uk\\>" "lists.warwick-uni" t) + (to "chiark-\\(motd\\|announce\\)@chiark\\.greenend\\.org\\.uk" + "lists.chiark-announce") + (any "clive-cambridge-gamers@nsict\\.org" "lists.nsict-games") ;; Per-sender addresses. (to "\\" "crap.cineworld" t) (from "@tshirthell\\.com\\>" "crap.tshirt-hell" t) (from "campaigns@jolla\\.com\\>" "crap.jolla" t) + (from "@thomann\\.de\\>" "crap.thomann" t) + (from "@wikimedia\\.org\\>" "crap.wikimedia" t) + (from "@gandi\\.net\\>" "crap.gandi" t) + (from "@mythic-beasts\\.com\\>" "crap.mythic-beasts" t) ;; Default. "mail.misc")) @@ -200,15 +221,26 @@ (nnimap-split-methods nnimap-split-fancy) (nnimap-split-fancy ,nnmail-split-fancy) (nnimap-unsplittable-articles (%Deleted))) + (nnimap "mdw-chiark" + (nnimap-address "imap.dovecot.chiark.greenend.org.uk") + (nnimap-stream starttls) + (nnimap-inbox ("INBOX" "to.split")) + (nnimap-split-methods nnimap-split-fancy) + (nnimap-split-fancy ,nnmail-split-fancy) + (nnimap-unsplittable-articles (%Deleted))) (nnimap "mwooding-chiark" (nnimap-address "imap.dovecot.chiark.greenend.org.uk") (nnimap-stream starttls) - (nnimap-inbox "INBOX") + (nnimap-inbox ("INBOX" "to.split")) + (nnimap-split-methods nnimap-split-fancy) + (nnimap-split-fancy ,nnmail-split-fancy) (nnimap-unsplittable-articles (%Deleted))) (nnimap "google" (nnimap-address "imap.gmail.com") (nnimap-stream tls) - (nnimap-inbox "INBOX") + (nnimap-inbox ("INBOX" "to.split")) + (nnimap-split-methods nnimap-split-fancy) + (nnimap-split-fancy ,nnmail-split-fancy) (nnimap-unsplittable-articles (%Deleted))))) ;; Send sent mail back to me.