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

diff --git a/wl/ChangeLog b/wl/ChangeLog
index c24ac86..34d85d2 100644 (file)
--- 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 (file)
--- 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)