From: kaoru <kaoru>
Date: Tue, 4 Apr 2000 15:30:36 +0000 (+0000)
Subject: * wl-refile.el (wl-refile-evaluate-rule): Fixed problem
X-Git-Tag: wl-1_1_1~62
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=bdddf888c2ebd875c1b450631a79fffa2599ecb0;p=elisp%2Fwanderlust.git

* wl-refile.el (wl-refile-evaluate-rule): Fixed problem
when wl-refile-get-field-value return nil.
---

diff --git a/wl/ChangeLog b/wl/ChangeLog
index f6ae633..149cdf3 100644
--- a/wl/ChangeLog
+++ b/wl/ChangeLog
@@ -1,3 +1,8 @@
+2000-04-05  TAKAHASHI Kaoru  <kaoru@kaisei.org>
+
+	* wl-refile.el (wl-refile-evaluate-rule): Fixed problem
+	when wl-refile-get-field-value return nil.
+
 2000-04-04   Daiki Ueno  <ueno@unixuser.org>
 
 	* wl-refile.el
diff --git a/wl/wl-refile.el b/wl/wl-refile.el
index d4413b9..7bdb661 100644
--- a/wl/wl-refile.el
+++ b/wl/wl-refile.el
@@ -152,7 +152,8 @@ If RULE does not match ENTITY, returns nil."
       (setq pairs (cdr rule))
       (setq value (wl-refile-get-field-value entity (car rule)))
       (while pairs
-	(if (and (string-match
+	(if (and (stringp value)
+		 (string-match
 		  (car (car pairs))
 		  value)
 		 (setq guess (wl-refile-expand-newtext