From: Katsumi Yamaoka <yamaoka@jpl.org>
Date: Thu, 20 Feb 2003 23:20:48 +0000 (+0000)
Subject: (message-resend): Bind message-setup-hook to nil; remove X-Draft-From header.
X-Git-Url: http://cgit.sxemacs.org/?p=gnus;a=commitdiff_plain;h=a7c213c57c3e3fac5302d4c2fac24422cffa425c

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

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index ba65fd173..317eef8e2 100644
--- 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 b701b7655..0822e0a58 100644
--- 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-"))