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

diff --git a/wl/ChangeLog b/wl/ChangeLog
index f8a6e4c..59901cb 100644 (file)
--- 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 (file)
--- 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)