dot/gnus-local.el.distorted: Change how `odin' data is collected.

[profile] / dot / gnus-local.el.distorted

diff --git a/dot/gnus-local.el.distorted b/dot/gnus-local.el.distorted
index a6cf56db19d868045c33d524d7cc27266e27d250..ed6f0aa1b0b58e01ea8d5deee860edfb1826dc89 100644 (file)
--- a/dot/gnus-local.el.distorted
+++ b/dot/gnus-local.el.distorted
@@ -104,7 +104,9 @@
          "=" "\\(" "\\S-+" "\\)"       ; mailbox tag
          "\\(" "$" "\\|" "\\s-" "\\)"))
 
-(defun mdw-odin-splits ()
+(defvar mdw-odin-splits nil)
+
+(defun mdw-update-odin-info ()
   (let ((list nil))
     (with-temp-buffer
       (call-process "ssh" nil t nil
@@ -118,7 +120,8 @@
                       ,(format "crap.%s" tag))
                  list)))
        (forward-line)))
-    (nreverse list)))
+    (setq mdw-odin-splits (nreverse list))))
+(mdw-update-odin-info)
 
 ;; The actual splitting rules.
 (setq nnmail-split-fancy
@@ -168,7 +171,7 @@
          (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.