[Mew-Win32 01929] Re: My guess function

[SUGIMORI ( 杉森 隆行 )]

すぎもりです。こんにちわ。

>>> "yamagus" こと YAMAGUCHI Shuhei さんの
>>>「[Mew-Win32 01814] My guess function」というメールより

yamagus> 以下は、AddrBook に登録されている人から来たメールを、+from/<shortname>
yamagus> に refile するよう推測するコードです。

これを機会に+fromフォルダをもっと活用してみようかと思い、やまぐちさん
のコードを使っています。
僕の使い方が間違ってるのだけなのかもしれませんが、
ちょっと思ったことを書きます。

1.  mew-refile-guess-from-me-is-specialに対応したい。
2.  +from/.../<shortname>みたいなものも推測してくれたうれしいかも。

とりえあず、1.は、mew-distに流れていたものを参考にして、
以下みたいにして使ってみました。
elispは、よくわかんないけですけどね。
------------------------------------------------
(defun mew-refile-guess-by-shortname (&optional addr)
  (mew-refile-guess-from-dispatch 'mew-refile-guess-by-shortname-body addr))
(defun mew-refile-guess-by-shortname-body (&optional addr)
  (let ((from (or addr (mew-header-parse-address mew-from:)))
	(shortname))
    (and from
	 (setq shortname (mew-addrbook-shortname-get from))
	 (if (and mew-folders-default-folder
		  (not (equal "" mew-folders-default-folder)))
	     (concat (file-name-as-directory mew-folders-default-folder)
		     shortname)
	   (concat "+" shortname)))))
------------------------------------------------

2. は、どーしたいいんでしょうかね？ guess-by-folderのまねをするのかな。
それとも、他の推測関数を使えばできるのかな。うーむ。