(message-resend): Bind message-setup-hook to nil; remove X-Draft-From header.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index ba65fd1..317eef8 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2003-02-20  Katsumi Yamaoka  <yamaoka@jpl.org>
+
+       * message.el (message-resend): Bind message-setup-hook to nil;
+       remove X-Draft-From header.
+
 2003-02-20  Jesper Harder  <harder@ifa.au.dk>
 
        * gnus-sum.el (gnus-simplify-subject-fully, gnus-subject-equal)

diff --git a/lisp/message.el b/lisp/message.el
index b701b76..0822e0a 100644 (file)
--- a/lisp/message.el
+++ b/lisp/message.el
@@ -5830,12 +5830,16 @@ Optional DIGEST will use digest to forward."
       (unless (message-mail-user-agent)
        (set-buffer (get-buffer-create " *message resend*"))
        (erase-buffer))
-      (let ((message-this-is-mail t))
+      (let ((message-this-is-mail t)
+           message-setup-hook)
        (message-setup `((To . ,address))))
       ;; Insert our usual headers.
       (message-generate-headers '(From Date To))
       (message-narrow-to-headers)
+      ;; Remove X-Draft-From header etc.
+      (message-remove-header message-ignored-mail-headers t)
       ;; Rename them all to "Resent-*".
+      (goto-char (point-min))
       (while (re-search-forward "^[A-Za-z]" nil t)
        (forward-char -1)
        (insert "Resent-"))