X-Git-Url: https://git.distorted.org.uk/~mdw/profile/blobdiff_plain/7bfab029d5c8a53ba1d5872371d79a2a3a90adf2..f8d935ae18ed8356e02d5e30520a8f72f6472b54:/dot/gnus-local.el.distorted?ds=inline

diff --git a/dot/gnus-local.el.distorted b/dot/gnus-local.el.distorted
index 94c8c32..a6cf56d 100644
--- a/dot/gnus-local.el.distorted
+++ b/dot/gnus-local.el.distorted
@@ -84,6 +84,7 @@
 	 (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
@@ -94,6 +95,7 @@
 			 "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
@@ -215,15 +217,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.