From b4f0fb4ec6e31b51cd4ba3dd6e9dbe5ec0cd062b Mon Sep 17 00:00:00 2001 From: kaoru Date: Wed, 18 Jun 2003 18:20:47 +0000 Subject: [PATCH] (wl-draft-reply): List in r-list can contain function. --- wl/ChangeLog | 1 + wl/wl-draft.el | 11 +++++++++-- 2 files changed, 10 insertions(+), 2 deletions(-) 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 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) -- 1.7.10.4