As if I might want to accumulate some other value some day.
(defvar mdw-odin-splits nil)
(defun mdw-update-odin-info ()
- (let ((list nil))
+ (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)))
- (setq mdw-odin-splits (nreverse list))))
+ (setq mdw-odin-splits (nreverse splits))))
(mdw-update-odin-info)
;; The actual splitting rules.