(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
"=" "\\(" "\\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")
(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)
;; The actual splitting rules.
(setq nnmail-split-fancy
(to "\\<mdw-nopspam-\\([^@]+\\)@" "crap.\\1" t)
(to "\\(markw\\|mdw\\|mw\\)@odin\\.gg" "mail.misc")
- ,@(mdw-odin-splits)
+ ,@mdw-odin-splits
(to "\\([a-z0-9]+\\)@odin\\.gg" "crap.odin-misc")
;; Regular nags.