From: kaoru <kaoru>
Date: Wed, 18 Jun 2003 18:20:47 +0000 (+0000)
Subject: (wl-draft-reply): List in r-list can contain function.
X-Git-Tag: wl-2_10_1pre~7
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=b4f0fb4ec6e31b51cd4ba3dd6e9dbe5ec0cd062b;p=elisp%2Fwanderlust.git

(wl-draft-reply): List in r-list can contain function.
---

diff --git a/wl/ChangeLog b/wl/ChangeLog
index f8a6e4c..59901cb 100644
--- a/wl/ChangeLog
+++ b/wl/ChangeLog
@@ -2,6 +2,7 @@
 
 	* wl-draft.el (wl-draft-send-mail-with-smtp): Catch quitting and
 	write sendlog.
+	(wl-draft-reply): List in r-list can contain function.
 
 2003-06-15  TAKAHASHI Kaoru  <kaoru@kaisei.org>
 
diff --git a/wl/wl-draft.el b/wl/wl-draft.el
index 383c6c9..b32e4fb 100644
--- a/wl/wl-draft.el
+++ b/wl/wl-draft.el
@@ -348,8 +348,15 @@ Reply to author if WITH-ARG is non-nil."
 		      ((listp condition)
 		       (catch 'done
 			 (while condition
-			   (if (not (std11-field-body (car condition)))
-			       (throw 'done nil))
+			   (cond
+			    ((stringp (car condition))
+			     (or (std11-field-body (car condition))
+				 (throw 'done nil)))
+			    ((symbolp (car condition))
+			     (or (funcall (car condition))
+				 (throw 'done nil)))
+			    (t
+			     (debug)))
 			   (setq condition (cdr condition)))
 			 t))
 		      ((symbolp condition)