From: hmurata <hmurata>
Date: Wed, 22 Feb 2006 16:22:06 +0000 (+0000)
Subject: (wl-draft-find-reply-headers): Avoid compile warning.
X-Git-Tag: wl-2_15_3~4
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=dcda960d4090dd1db3fc819de9342c3ead82e4ce;p=elisp%2Fwanderlust.git

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

diff --git a/wl/ChangeLog b/wl/ChangeLog
index ce69f20..bec4178 100644
--- 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
--- 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))