[Mew-dist 06042] Re: request about auto refile

[Yoshinari NOMURA]

乃村です。解決されたようですが、せっかく書いたので出します。

On Thu, 20 Aug 1998 13:08:29 +0900,
	Akihiro Motoki <mokkun at example.com> said:

> 要望としては、auto-refile用の mew-refile-guess-alist を別に
> 用意して頂けると嬉しいです。

もともと (ほぼ/大半の人には全く) 同じ事を 2回書くのは格好悪いの
で、1個にまとめたという経緯があります。まつしたさんのおっしゃっ
たように、let が楽かもしれません。

あとは、

(defun mew-refile-guess-by-alist-for-auto ()
  (mew-refile-guess-by-alist1 mew-refile-guess-alist-for-auto))

という定義をして、mew-refile-guess-control の auto-boundary 前に
置く。もしくは、見る alist を変えるような control を書いて 
mew-refile-guess-control に入れるという手がありそうです。

こっからは、更に余談で、guess-func の書き方です。

guess-func は、ヘッダと本文の入ったバッファにポインタが置かれた
状態で起動されます。あとは、ヘッダを切り出したりする関数を使って、
結果を ("+foo" "+bar") のような list か、"+foo" のような string 
で返してやればいいことになっています。guess に失敗したら nil です。

簡単な例:

(defun mew-refile-guess-by-date ()
  (format-time-string "+%Y/%m" (current-time)))

を用意して、mew-refile-guess-control の先頭に入れておくと、月毎
に違うフォルダへメールを保存しておくことができます。(本当は 
Date: 見るべきでしょうけど。)
--
nom