prom-wlが無い

実際に振り分けした後に気付いたが prom-wl が無いことに気付く。prom-wl はprocmailで振り分けたフォルダのみ check し、checkを必要最低限にするための elisp です。scmail 用のも無いかな、と思ってググったけど見つらからない。
えーい、と思って prom-wl を参考にして作ってみた。

(setq my-scmail-wl-check-folders nil)
(setq my-scmail-log-filename "~/.scmail/log")
(setq my-scmail-log-old-filename "~/.scmail/log.old")


(defun my-scmail-wl ()
(interactive)
(setq my-scmail-wl-check-folders nil)
(with-temp-buffer
(insert-file-contents my-scmail-log-filename)
(while  (and (re-search-forward "-> \\(.+\\)/.*" nil t)
		   (my-scmail-wl-add-list (concat "+" (elmo-match-buffer 1)))
		    t))
(my-scmail-wl-check-folder)
      (write-region (point-min) (point-max) my-scmail-log-old-filename t 'nomsg)
(delete-file my-scmail-log-filename)
)
(wl)
)


(defun my-scmail-wl-add-list ( folder )
(if (not (member folder my-scmail-wl-check-folders))
(setq my-scmail-wl-check-folders (cons folder my-scmail-wl-check-folders)))
t)


(defun my-scmail-wl-check-folder ()
(message (format "check folder %S" my-scmail-wl-check-folders))
(wl-folder-check-entity (list "new" 'group my-scmail-wl-check-folders)))

素朴すぎるけど、意外にちゃんと動いている。これで快適だ。