(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
"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
(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.