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