From 97b22f9cff6c6cc87a3ba1ee24e892bceae6f5a1 Mon Sep 17 00:00:00 2001 From: teranisi Date: Fri, 13 Jul 2001 16:01:48 +0000 Subject: [PATCH] =?utf8?q?*=20wl-draft.el=20(wl-message-mail-p):=20Test=20re?= =?utf8?q?sent-to:=20field.=20(Fix=20by=20Peter=20M=1B,Ax=1B(Bller=20Neergaa?= =?utf8?q?rd=20)?= MIME-Version: 1.0 Content-Type: text/plain; charset=utf8 Content-Transfer-Encoding: 8bit --- wl/ChangeLog | 5 +++++ wl/wl-draft.el | 1 + 2 files changed, 6 insertions(+) diff --git a/wl/ChangeLog b/wl/ChangeLog index 0f6f507..d294883 100644 --- a/wl/ChangeLog +++ b/wl/ChangeLog @@ -1,3 +1,8 @@ +2001-07-14 Yuuichi Teranishi + + * wl-draft.el (wl-message-mail-p): Test resent-to: field. + (Fix by Peter Møller Neergaard ) + 2001-07-05 Yuuichi Teranishi * wl-vars.el: Changed file coding system to ISO-2022-JP. diff --git a/wl/wl-draft.el b/wl/wl-draft.el index e7d7787..6d1f982 100644 --- a/wl/wl-draft.el +++ b/wl/wl-draft.el @@ -472,6 +472,7 @@ Reply to author if WITH-ARG is non-nil." (defun wl-message-mail-p () "If exist To, Cc or Bcc field, return non-nil." (or (wl-message-field-exists-p "To") + (wl-message-field-exists-p "Resent-to") (wl-message-field-exists-p "Cc") (wl-message-field-exists-p "Bcc") ;;; This may be needed.. -- 1.7.10.4