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

 Fixed problem when no rule was matched.

diff --git a/wl/ChangeLog b/wl/ChangeLog
index 79ce66c..b224bca 100644 (file)
--- a/wl/ChangeLog
+++ b/wl/ChangeLog
@@ -1,3 +1,8 @@
+2000-11-02  Yuuichi Teranishi  <teranisi@gohome.org>
+
+       * wl-folder.el (wl-folder-guess-mailing-list-by-refile-rule):
+       Fixed problem when no rule was matched.
+
 2000-11-01  Akihiro MOTOKI  <motoki@da.jp.nec.com>
 
        * wl-summary.el (wl-summary-get-mark): Fixed

diff --git a/wl/wl-folder.el b/wl/wl-folder.el
index 78290b3..90c7f7f 100644 (file)
--- a/wl/wl-folder.el
+++ b/wl/wl-folder.el
@@ -2038,12 +2038,8 @@ Don't care multi."
                                                 'case-ignore)))
            (setq toalist (append toalist (cdr (car rules)))))
        (setq rules (cdr rules)))
-      (when toalist
-       (setq tokey (car (rassoc folder toalist)))
+      (setq tokey (car (rassoc folder toalist)))
 ;;;     (setq histkey (car (rassoc folder wl-refile-alist)))
-       (elmo-string-matched-member tokey
-                                   wl-subscribed-mailing-list t))
-
       ;; case-ignore search `wl-subscribed-mailing-list'
       (if (stringp tokey)
          (list