* 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 (file)
--- 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 (file)
--- 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)))