mew で特定のメールだけ振り分け

mew の auto-refile がデフォルトだとわりといろいろ refile してくれるんだけど，alist からとかじゃなくて一部の指定した条件を満たすメールだけ勝手に refile してほしいと思ったのでそういう設定。具体的には X-spam が yes なやつとか root@ に飛んでくるやつの振り分け先だけ勝手に決める。

(defun mylib-mew-auto-refile ()
  (let ((mew-refile-guess-alist
         '(("X-spam:"
            ("yes" . "+spam"))
           ("To:"
            ("root@" . "+root"))
           )))
    (mew-refile-guess-by-alist)))

(setq mew-refile-guess-control
      '(
        mylib-mew-auto-refile
        mew-refile-ctrl-auto-boundary
        mew-refile-guess-by-thread
        mew-refile-ctrl-throw
        mew-refile-guess-by-alist
        mew-refile-ctrl-throw
        mew-refile-guess-by-newsgroups
        mew-refile-guess-by-folder
        mew-refile-ctrl-throw
        mew-refile-guess-by-from-folder
        mew-refile-ctrl-throw
        mew-refile-guess-by-from
        mew-refile-ctrl-throw
        mew-refile-guess-by-default
        ))

(add-hook 'mew-pop-sentinel-hook 'mew-summary-auto-refile)