From bdddf888c2ebd875c1b450631a79fffa2599ecb0 Mon Sep 17 00:00:00 2001 From: kaoru Date: Tue, 4 Apr 2000 15:30:36 +0000 Subject: [PATCH] * wl-refile.el (wl-refile-evaluate-rule): Fixed problem when wl-refile-get-field-value return nil. --- wl/ChangeLog | 5 +++++ wl/wl-refile.el | 3 ++- 2 files changed, 7 insertions(+), 1 deletion(-) 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 + + * wl-refile.el (wl-refile-evaluate-rule): Fixed problem + when wl-refile-get-field-value return nil. + 2000-04-04 Daiki Ueno * 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 -- 1.7.10.4