From: hmurata <hmurata>
Date: Fri, 24 Feb 2006 15:16:07 +0000 (+0000)
Subject: (wl-draft-find-reply-headers): Use functionp instead
X-Git-Tag: wl-2_15_3~1
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=a286a712beb03a4a8c05a932dbbb73c17d6ba5c4;p=elisp%2Fwanderlust.git

(wl-draft-find-reply-headers): Use functionp instead
of symbolp to test whether the condition is function.
---

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  <lapis-lazuli@pop06.odn.ne.jp>
+
+	* 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  <yoichi@geiin.org>
 
 	* 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))