* wl-draft.el (wl-message-mail-p): Test resent-to: field.

(Fix by Peter M\e,Ax\e(Bller Neergaard <turtle@bu.edu>)

diff --git a/wl/ChangeLog b/wl/ChangeLog
index 0f6f507..d294883 100644 (file)
--- 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 (file)
--- 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..