[Mew-dist 10580] Re: mew-refile-guess-by-default

[Yoshinari NOMURA]

1.94 がリリースされたようですね。

On Mon, 6 Sep 1999 00:10:40 +0900,
	KOIE Hidetaka (鯉江英隆) <hide at example.com> said:

> mew-refile-guess-by-defaultで
> mew-refile-guess-from-me-is-specialがtのとき
> To:やCc:を元にフォルダ名を生成してくれるとうれしいです。

それもそうですね。下記でどうでしょう。
--
nom


--- mew-refile.el.orig	Mon Aug 30 12:43:15 1999
+++ mew-refile.el	Mon Sep  6 10:48:28 1999
@@ -293,6 +293,9 @@
 ;; by default returns: guess1
 ;;
 (defun mew-refile-guess-by-default (&optional addr)
+  (mew-refile-guess-from-dispatch 'mew-refile-guess-by-default-body addr))
+
+(defun mew-refile-guess-by-default-body (&optional addr)
   (let* ((pfix (cond ((equal mew-folders-default-folder "" ) "+")
 		     ((equal mew-folders-default-folder nil) "+")
 		     ((equal mew-folders-default-folder "+") "+")