From: teranisi <teranisi>
Date: Thu, 2 Nov 2000 01:11:46 +0000 (+0000)
Subject: * wl-folder.el (wl-folder-guess-mailing-list-by-refile-rule):
X-Git-Tag: wl-2_4-root~17
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=5c1fe6478e5ee7968190331cea5ebfe7df368949;p=elisp%2Fwanderlust.git

* 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
--- 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
--- 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