[Mew-dist 05203] mew-refile-guess-by-folder with Reply-To

[Atsushi Nemoto]

はじめまして、根本と申します。

# 以下の提案、先に mew-win32 で議論していたものです。

refile 先の推測処理で、「フォルダ名から」推測する部分の処理が以下のよ
うになっていると便利だと思うのですが、いかがでしょうか。


--- 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)))
--- --- ---

このパッチでは直接フィールドを追加してますが、フィールドのリスト部分を
変数にして変更できるようにする、というのでもかまいません。

どうしてこんな提案をするかいいますと、mew-refile-ctrl-multi が nil の
場合に

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

のような複数のメイリングリストにポストされたメッセージの refile 先を、
デフォルトの規則だけで推測できるといいなあ、と思ったからです。この例だ
と標準の推測では +mule-win32, +mew-win32 で、mew-refile-ctrl-multi を 
nil にしても +mule-win32 になってしまいますよね。

もちろん mew-refile-guess-alist を自分で設定すればこんな変更の必要も無
いわけですが、デフォルトで推測してくれると嬉しい、ということです。

以下のような条件の人なら、この変更で mew-refile-guess-alist がすっきり
すると思います。

1. 参加している ML が Reply-To: を付けてくる。
2. 複数の ML へのクロスポスト(?)を受け取ることが良くある。
3. ML の名前でフォルダを作って refile している。
4. フォルダ推測で複数フォルダを対象としないように設定している。
  ((setq mew-refile-ctrl-multi nil))

ちなみに、mew-refile-guess-by-folder は +from の下のフォルダは無視する
はずなので、Reply-To: に個人アドレスがある場合には影響はないと思います。

---
ソード株式会社  根本 篤志 (Atsushi Nemoto)
E-Mail: nemoto at example.com