[mew-dist 19524] Re: refile learning

[Yoshinari Nomura]

乃村です．

On Thu, 25 Oct 2001 13:35:39 +0900 (JST),
	tachibana.wataru at example.com said:

> パッチを当てて試してみましたが、残念ながら希望の動作は致しませんでした。

すみません．寝惚けてました．下でもう1回試してみていただけませんでしょうか．
前のパッチから，
      (setq from to-cc))
の行が
      (setq from (car to-cc)))
に変わっています．
--
nom


--- mew-refile.el.orig	Fri Oct 19 23:00:10 2001
+++ mew-refile.el	Fri Oct 26 09:50:51 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 (car 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.