[Mew-Win32 01840] Re: My guess function

[YAMAGUCHI Shuhei]

>>>>> In [Mew-Win32 : No.01814] 
>>>>>	YAMAGUCHI Shuhei <yamagus at example.com> wrote:

山口> 以下は、AddrBook に登録されている人から来たメールを、+from/<shortname>
山口> に refile するよう推測するコードです。
(snip)
山口> 現時点でわかっている問題(?)点:
(snip)
山口> ・見ての通り、私はまだ b47 だったりします。たぶん動くとは思いますが…。

昨日やっと b54 にあげて見たところ、動きませんでした…。 ^^;
今回は b54 & b55 で動くことを確認しています。
ついでに、実情に合うよう、関数名を変えてみました。
-------------- next part --------------
(defun mew-refile-guess-by-shortname (&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)))))
-------------- next part --------------
~/.emacs (や、その類い)にこの関数を書いて、mew-refile-guess-control の
適当な場所に入れて使ってみてください。
-------------- next part --------------

でわでわ
-- 
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