From: teranisi <teranisi>
Date: Fri, 13 Jul 2001 16:01:48 +0000 (+0000)
Subject: * wl-draft.el (wl-message-mail-p): Test resent-to: field.
X-Git-Tag: wl-2_6_1~55
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=97b22f9cff6c6cc87a3ba1ee24e892bceae6f5a1;p=elisp%2Fwanderlust.git

* wl-draft.el (wl-message-mail-p): Test resent-to: field.
(Fix by Peter M,Ax(Bller Neergaard <turtle@bu.edu>)
---

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  <teranisi@gohome.org>
+
+	* wl-draft.el (wl-message-mail-p): Test resent-to: field.
+	(Fix by Peter Møller Neergaard <turtle@bu.edu>)
+
 2001-07-05  Yuuichi Teranishi  <teranisi@gohome.org>
 
 	* 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..