* 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 (file)
--- 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 (file)
--- 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