(wl-draft-find-reply-headers): Avoid compile warning.

diff --git a/wl/ChangeLog b/wl/ChangeLog
index ce69f20..bec4178 100644 (file)
--- a/wl/ChangeLog
+++ b/wl/ChangeLog
@@ -3,6 +3,7 @@
        * wl-draft.el (wl-draft-find-reply-headers): New function (extract
        from `wl-draft-reply').
        (wl-draft-reply): Use it.
+       (wl-draft-find-reply-headers): Avoid compile warning.
 
 2006-02-14  Yoichi NAKAYAMA  <yoichi@geiin.org>
 

diff --git a/wl/wl-draft.el b/wl/wl-draft.el
index 7846da7..a9c1ecf 100644 (file)
--- a/wl/wl-draft.el
+++ b/wl/wl-draft.el
@@ -305,19 +305,19 @@ e.g.
 
 (defun wl-draft-find-reply-headers (rule-symbol)
   (let ((rule-list (symbol-value rule-symbol))
-       (condition-match-p
-        (lambda (condition)
-          (cond ((stringp condition)
-                 (std11-field-body condition))
-                ((symbolp condition)
-                 (funcall condition))
-                ((consp condition)
-                 (and (funcall condition-match-p (car condition))
-                      (funcall condition-match-p (cdr condition))))
-                ((null condition))
-                (t
-                 (error "Unkown condition in `%s'" rule-symbol)))))
-       result)
+       condition-match-p result)
+    (setq condition-match-p
+         (lambda (condition)
+           (cond ((stringp condition)
+                  (std11-field-body condition))
+                 ((symbolp condition)
+                  (funcall condition))
+                 ((consp condition)
+                  (and (funcall condition-match-p (car condition))
+                       (funcall condition-match-p (cdr condition))))
+                 ((null condition))
+                 (t
+                  (error "Unkown condition in `%s'" rule-symbol)))))
     (while (and (null result) rule-list)
       (let ((rule (car rule-list)))
        (when (funcall condition-match-p (car rule))