From e196f2742339d63255ae384bf0d70855b4f19536 Mon Sep 17 00:00:00 2001 From: yamaoka Date: Fri, 19 Oct 2001 01:26:40 +0000 Subject: [PATCH] * message.el (message-resend): Bind `inhibit-field-text-motion' to t while resending a mail. --- ChangeLog | 5 +++++ lisp/message.el | 7 ++++--- 2 files changed, 9 insertions(+), 3 deletions(-) diff --git a/ChangeLog b/ChangeLog index b632542..efe637f 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,3 +1,8 @@ +2001-10-19 Katsumi Yamaoka + + * lisp/message.el (message-resend): Bind + `inhibit-field-text-motion' to t while resending a mail. + 2001-10-16 Katsumi Yamaoka * 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))) -- 1.7.10.4