From: okada <okada>
Date: Tue, 8 May 2001 16:07:18 +0000 (+0000)
Subject: * wl-folder.el (wl-folder-guess-mailing-list-by-refile-rule): Fix.
X-Git-Tag: wl-2_6-root^3~14
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=e10d8717e37fb6a263ebf2eda238c4c59e00940c;p=elisp%2Fwanderlust.git

* wl-folder.el (wl-folder-guess-mailing-list-by-refile-rule): Fix.
---

diff --git a/wl/ChangeLog b/wl/ChangeLog
index c24ac86..34d85d2 100644
--- a/wl/ChangeLog
+++ b/wl/ChangeLog
@@ -1,3 +1,7 @@
+2001-05-09  Kenichi OKADA  <okada@opaopa.org>
+
+	* wl-folder.el (wl-folder-guess-mailing-list-by-refile-rule): Fix.
+
 2001-05-08  Kenichi OKADA  <okada@opaopa.org>
 
 	* wl.el (wl): Fix for wl-demo.
diff --git a/wl/wl-folder.el b/wl/wl-folder.el
index 4105a33..a330e78 100644
--- a/wl/wl-folder.el
+++ b/wl/wl-folder.el
@@ -2038,10 +2038,11 @@ If FOLDER is multi, return comma separated string (cross post)."
   "Return ML address guess by FOLDER.
 Use `wl-subscribed-mailing-list' and `wl-refile-rule-alist'.
 Don't care multi."
-  (setq folder (car
-		(elmo-folder-get-primitive-list
-		 (wl-folder-get-elmo-folder folder))))
-  (unless (memq (elmo-folder-type-internal folder)
+;;; XXXXX FIX ME 
+;;;  (setq folder (car
+;;;		(elmo-folder-get-primitive-list
+;;;		 (wl-folder-get-elmo-folder folder))))
+  (unless (memq (elmo-folder-type folder)
 		'(localnews nntp))
     (let ((rules wl-refile-rule-alist)
 	  mladdress tokey toalist histkey)