[Mew-Win32 00712] refile guess by Reply-To

[Atsushi Nemoto]

はじめまして、根本というものです。mew-dist 向けの内容ですが、mew-win32 
の方々の意見を聞かせてください(mew-win32/mew-dist両方に参加されている
方が多そうなので)。

mew の refile では "To:" や "Cc:" のアドレスと同じ名前のフォルダがあれ
ばそこが refile 先になりますよね。これは便利なのですが、

> To: mule-win32 at example.com, mew-win32 at example.com
> Reply-To: mew-win32 at example.com

のように複数のメイリングリストにポストされたメッセージだと 
+mule-win32, +mew-win32 が両方とも refile 先の候補になってしまいます。
mew-refile-ctrl-multi を nil にすれば refile 先は一つになりますが、最
初の候補(この場合 +mule-win32)になるだけです。

mew-refile-guess-alist を設定すれば良いのはわかっているんですが、でき
ればデフォルトで +mew-win32 を推測して欲しいと思いました。そこで以下の
ようなパッチ(というほどのものではありませんが)を作ってみました。
mew-refile-guess-by-folder で参照するフィールドに "Reply-To:" を加える
だけです。

この変更で都合の悪いことってあるでしょうか。ご意見お聞かせください。

---
ソード株式会社  根本 篤志 (Atsushi Nemoto)
E-Mail: nemoto at example.com
-------------- next part --------------
--- mew-refile.el.org	Tue Jun 23 11:08:03 1998
+++ mew-refile.el	Fri Jun 26 13:14:10 1998
@@ -209,7 +209,7 @@
 ; by folder returns: (guess1 guess2 ...) or nil
 ;
 (defun mew-refile-guess-by-folder ()
-  (let ((to-cc (mew-header-address-collect '("To:" "Cc:" "Apparently-To:")))
+  (let ((to-cc (mew-header-address-collect '("Reply-To:" "To:" "Cc:" "Apparently-To:")))
 	ret return ml-name)
     (while to-cc
       (setq ml-name (mew-header-delete-at (car to-cc)))