From a286a712beb03a4a8c05a932dbbb73c17d6ba5c4 Mon Sep 17 00:00:00 2001 From: hmurata Date: Fri, 24 Feb 2006 15:16:07 +0000 Subject: [PATCH] (wl-draft-find-reply-headers): Use functionp instead of symbolp to test whether the condition is function. --- wl/ChangeLog | 5 +++++ wl/wl-draft.el | 2 +- 2 files changed, 6 insertions(+), 1 deletion(-) diff --git a/wl/ChangeLog b/wl/ChangeLog index 935eb1c..cf3fd5a 100644 --- a/wl/ChangeLog +++ b/wl/ChangeLog @@ -1,3 +1,8 @@ +2006-02-24 Hiroya Murata + + * wl-draft.el (wl-draft-find-reply-headers): Use functionp instead + of symbolp to test whether the condition is function. + 2006-02-24 Yoichi NAKAYAMA * wl-draft.el (wl-draft-send-confirm): Bind wl-draft-send-hook diff --git a/wl/wl-draft.el b/wl/wl-draft.el index 5650ddc..9ccf8dd 100644 --- a/wl/wl-draft.el +++ b/wl/wl-draft.el @@ -310,7 +310,7 @@ e.g. (lambda (condition) (cond ((stringp condition) (std11-field-body condition)) - ((symbolp condition) + ((functionp condition) (funcall condition)) ((consp condition) (and (funcall condition-match-p (car condition)) -- 1.7.10.4