[Mew-Win32 01943] Re: My guess function

[YAMAGUCHI Shuhei]

>>>>> In [Mew-Win32 : No.01929] 
>>>>>	SUGIMORI (杉森 隆行) <taro at example.com> wrote:

杉森> 僕の使い方が間違ってるのだけなのかもしれませんが、
杉森> ちょっと思ったことを書きます。

どうもです。 :-)

杉森> 1.  mew-refile-guess-from-me-is-specialに対応したい。

いただき!! です。 :-)

杉森> 2.  +from/.../<shortname>みたいなものも推測してくれたうれしいかも。

なるほど、今までのは mew-refile-guess-by-from-folder の代わりとしては
機能不足ですね。

#どちらかというと mew-refile-guess-by-default に近い?
#それもそのはず、参考にしたコードは by-default だからです。 ^^;


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

今度は mew-refile-guess-by-from-folder をまねしてみました。
というわけで、新版をどうぞ。 :-)

#+from/.../<shortname> を探さず、必ず +from/<shortname> にするようなオ
#プションも付けようかと(一瞬)思いましたが、あまり意味がなさそうなので
#やめました。

でわでわ
-- 
yamagus at example.com / やまぐち＠ねっとらぴゅたの住人
  yamagus at example.com / 山口 修平
PGP-Fingerprint: 25 0F 6F E1 57 AD 56 08  3A BC D0 9B 48 AF 31 7A
-------------- next part --------------
(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* ((pfix (cond ((equal mew-folders-default-folder "" ) "+")
		     ((equal mew-folders-default-folder nil) "+")
		     ((equal mew-folders-default-folder "+") "+")
		     (t (file-name-as-directory mew-folders-default-folder))))
	 (from (or addr (mew-header-parse-address mew-from:)))
	 shortname-regex)
    (and from
	 (setq shortname (mew-addrbook-shortname-get from))
	 (setq shortname-regex
	       (concat "^" (regexp-quote pfix) "\\(.*/\\)?"
		       (regexp-quote shortname) "/?$"))
	 (or (mew-refile-match-in-list shortname-regex mew-folder-list)
	     (concat (file-name-as-directory pfix)
		     shortname)))))