From 53d6b45cd27bc760c51930df1b3e18982ae4595b Mon Sep 17 00:00:00 2001
Message-Id: <53d6b45cd27bc760c51930df1b3e18982ae4595b.1718765471.git.mdw@distorted.org.uk>
From: Mark Wooding <mdw@chiark.greenend.org.uk>
Date: Sat, 25 Apr 2020 00:01:08 +0100
Subject: [PATCH] dot/gnus-local.el.distorted: Change how `odin' data is
 collected.
Organization: Straylight/Edgeware

From: Mark Wooding <mdw@distorted.org.uk>

Rename the function, and change it so that it updates a variable rather
than just returns the result.  This will make it easier to produce other
kinds of reports later.
---
 dot/gnus-local.el.distorted | 9 ++++++---
 1 file changed, 6 insertions(+), 3 deletions(-)

diff --git a/dot/gnus-local.el.distorted b/dot/gnus-local.el.distorted
index a6cf56d..ed6f0aa 100644
--- 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.
-- 
[mdw]