[mew-dist 19492] Re: refile learning

[Yoshinari Nomura]

乃村です．

On Mon, 22 Oct 2001 22:48:03 +0900,
	Yoshinari NOMURA <nom at example.com> said:

> > From: tachibana.wataru at example.com
> > Subject: [mew-dist 19420] Re: refile learning
> > 
> > > >- 以前からこのバグはある
> > > >- 最近、生活習慣を変えたのでこのバグに気付いた
> > > >
> > > >でしょうか？
> > > 
> > > はい、その通りです。
> > 
> > 原因は特定されていて、現在作者の nom さんと調整中です。
> 
> 今週中に直しますので，少々お待ちを．

ちゃんと試していないんで，申し訳ないんですが，
これでご希望通りに動くか，みていただけませんでしょうか．
--
nom


--- mew-refile.el.orig	Fri Oct 19 23:00:10 2001
+++ mew-refile.el	Thu Oct 25 11:42:09 2001
@@ -313,7 +313,20 @@
   (let* ((from (downcase (or (mew-header-parse-address mew-from:) "")))
 	 ;; 'my honest opinion' guessed by mew-refile-guess-by-from.
 	 (mho (nth 1 (assoc 'mew-refile-guess-by-from info)))
-	 folder)
+	 folder to-cc)
+    ;; default leaning key X is the address derived from From: header, 
+    ;; but only when
+    ;;    mew-refile-guess-from-me-is-special is t
+    ;;    X is my address.
+    ;;    All addresses derived from To: Cc: values
+    ;;      point to the only one address Y.
+    ;; the learning key is set to Y instead of X.
+    (if (and mew-refile-guess-from-me-is-special
+	     (mew-is-my-address mew-regex-my-address-list from)
+	     (setq to-cc
+		   (mew-header-parse-address-list mew-refile-guess-key-list))
+	     (= (length to-cc) 1))
+	(setq from to-cc))
     (unless (or (or (null from) (null chosen)) (and mho (member mho chosen)))
       ;; I decide which folder is most important among the user chosen
       ;; folders.