[Mew-Win32 01814] My guess function

[YAMAGUCHI Shuhei]

やまぐち＠ねっとらぴゅたの住人％リハビリ中(^^;)、です。

#いろいろ不満の残るコードですが、ついつい宴会で一部の方にしゃべってし
#まったので…。

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

(defun mew-refile-guess-by-alias (&optional addr)
  (let ((alias) (from (or addr (mew-header-parse-address mew-from:) "")))
    (if (setq alias
	      (nth 0 (mew-assoc-member (downcase from) mew-addrbook-alist 1)))
	(if (and mew-folders-default-folder
		 (not (equal "" mew-folders-default-folder)))
	    (concat (file-name-as-directory mew-folders-default-folder) alias)
	  (concat "+" alias))
      nil)))

興味のある方は mew-refile-guess-control の適当な位置に入れて使ってみて
ください。

ちなみに、私は、
(setq mew-refile-guess-control
      '(mew-refile-guess-by-alist
	mew-refile-ctrl-auto-boundary
	mew-refile-guess-by-newsgroups
	mew-refile-guess-by-folder
	mew-refile-ctrl-throw
	;; mew-refile-guess-by-thread
	mew-refile-guess-by-alias
	mew-refile-ctrl-throw
	;; mew-refile-guess-by-from-folder
	;; mew-refile-guess-by-from
	mew-refile-guess-by-default))
なんてしてます。


現時点でわかっている問題(?)点:
・使い始める前に +from/〜 と AddrBook との間で整合性をとる必要がある。
    大抵の人は、+from の下にすでにたくさんのフォルダができているでしょ
    うし、AddrBook も膨らんでいることでしょう。それをひとつひとつチェッ
    クするのはめんどうかも、です。 ^^;

・見ての通り、私はまだ b47 だったりします。たぶん動くとは思いますが…。

・個人メールの refile 先が AddrBook で管理できるだけに、draft モードで
  の補完には Mew の自動学習がじゃまになる。
    たとえば、yamagus at example.com の shortname を yamaguchi な
    んてしてしまうと、Mew の自動学習がウザくなったりします。
    AddrBook との統一がすすむと、こういうのが一層目につくわけで…。


きっと、誰かがもっとエレガントにしてくれるんじゃないかと、密かに期待し
てたりします。 ^^;

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