From: yamaoka <yamaoka>
Date: Fri, 19 Oct 2001 01:26:40 +0000 (+0000)
Subject: * message.el (message-resend): Bind `inhibit-field-text-motion' to t while
X-Git-Tag: t-gnus-6_15_4-08-quimby-last-~40
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=e196f2742339d63255ae384bf0d70855b4f19536;p=elisp%2Fgnus.git-

* message.el (message-resend): Bind `inhibit-field-text-motion' to t while
 resending a mail.
---

diff --git a/ChangeLog b/ChangeLog
index b632542..efe637f 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,8 @@
+2001-10-19  Katsumi Yamaoka  <yamaoka@jpl.org>
+
+	* lisp/message.el (message-resend): Bind
+	`inhibit-field-text-motion' to t while resending a mail.
+
 2001-10-16  Katsumi Yamaoka  <yamaoka@jpl.org>
 
 	* lisp/message.el (message-send): Remove the text property `field'
diff --git a/lisp/message.el b/lisp/message.el
index 8522623..bd0265f 100644
--- a/lisp/message.el
+++ b/lisp/message.el
@@ -5426,9 +5426,10 @@ Optional NEWS will use news to forward instead of mail."
 	(replace-match "X-From-Line: "))
       ;; Send it.
       (let ((message-encoding-buffer (current-buffer))
-	    (message-edit-buffer (current-buffer)))
-	(let (message-required-mail-headers)
-	  (message-send-mail)))
+	    (message-edit-buffer (current-buffer))
+	    message-required-mail-headers
+	    (inhibit-field-text-motion t))
+	(message-send-mail))
       (kill-buffer (current-buffer)))
     (message "Resending message to %s...done" address)))