[Mew-dist 10589] Guess function

[YAMAGUCHI Shuhei]

やまぐち＠ねっとらぴゅたの住人、です。

せっかく AddrBook で shortname と address を管理しているので、この
shortname を refile 先のフォルダ名に使えないものかと思い、添付のコード
をつくってみました。

この guess-function は、AddrBook (実際には mew-addrbook-alist)にある
「個人情報」を見て、From: と一致する address を持つ shortname を探し、
+from/<shortname> を推測するものです。

AddrBook に登録するだけで(mew-refile-guess-alis に追加することなく)、
refile 先フォルダ名と shortname の統一ができます。
特に、
・アドレスを複数持ち、しかもそれらの local-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
-------------- 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)))))