From: morioka <morioka>
Date: Sat, 27 Dec 1997 16:38:59 +0000 (+0000)
Subject: (message-resend): Enclose `message-setup' with `(let
X-Git-Tag: gnus-6_7-tomo-199811302358~276
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=94148174382b1faaa5c7463900b84cd2d7f398e3;p=elisp%2Fgnus.git-

(message-resend): Enclose `message-setup' with `(let
(message-setup-hook) ...)' to avoid to `turn-on-mime-edit'; must setup
`message-encoding-buffer' and `message-edit-buffer' for
`message-send-mail'.
---

diff --git a/lisp/message.el b/lisp/message.el
index 55e3d8e..96e5626 100644
--- a/lisp/message.el
+++ b/lisp/message.el
@@ -3516,7 +3516,10 @@ Optional NEWS will use news to forward instead of mail."
       (set-buffer (get-buffer-create " *message resend*"))
       (buffer-disable-undo (current-buffer))
       (erase-buffer)
-      (message-setup `((To . ,address)))
+      ;; avoid to turn-on-mime-edit
+      (let (message-setup-hook)
+	(message-setup `((To . ,address)))
+	)
       ;; Insert our usual headers.
       (message-generate-headers '(From Date To))
       (message-narrow-to-headers)
@@ -3547,7 +3550,9 @@ Optional NEWS will use news to forward instead of mail."
       (when (looking-at "From ")
 	(replace-match "X-From-Line: "))
       ;; Send it.
-      (message-send-mail)
+      (let ((message-encoding-buffer (current-buffer))
+	    (message-edit-buffer (current-buffer)))
+	(message-send-mail))
       (kill-buffer (current-buffer)))
     (message "Resending message to %s...done" address)))