From dcda960d4090dd1db3fc819de9342c3ead82e4ce Mon Sep 17 00:00:00 2001 From: hmurata Date: Wed, 22 Feb 2006 16:22:06 +0000 Subject: [PATCH] (wl-draft-find-reply-headers): Avoid compile warning. --- wl/ChangeLog | 1 + wl/wl-draft.el | 26 +++++++++++++------------- 2 files changed, 14 insertions(+), 13 deletions(-) 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 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)) -- 1.7.10.4