From 94148174382b1faaa5c7463900b84cd2d7f398e3 Mon Sep 17 00:00:00 2001 From: morioka Date: Sat, 27 Dec 1997 16:38:59 +0000 Subject: [PATCH 1/1] (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'. --- lisp/message.el | 9 +++++++-- 1 file changed, 7 insertions(+), 2 deletions(-) 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))) -- 1.7.10.4