From: tomo <tomo>
Date: Mon, 28 May 2001 12:54:08 +0000 (+0000)
Subject: Set rmail-insert-mime-resent-message-function when loaded.
X-Git-Tag: Emacs-21_0_103-resend-fix-0~1
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=d770b4a2edb5f8274e35bafa66a894d44e600ed8;p=elisp%2Flemi.git

Set rmail-insert-mime-resent-message-function when loaded.
(rmail-insert-mime-resent-message): New function.
---

diff --git a/mail/rmail-mime.el b/mail/rmail-mime.el
index 25ede8d..f05e025 100644
--- a/mail/rmail-mime.el
+++ b/mail/rmail-mime.el
@@ -102,6 +102,10 @@
   (mime-insert-entity (with-current-buffer forward-buffer
 			mime-message-structure)))
 
+(defun rmail-insert-mime-resent-message (forward-buffer)
+  (mime-insert-entity (with-current-buffer forward-buffer
+			mime-message-structure)))
+
 (defun rmail-enable-mime ()
   (interactive)
   (setq rmail-enable-mime t)
@@ -170,6 +174,8 @@ If the search succeeds, return non-nil.  Otherwise, return nil."
 	   (function rmail-show-mime-message)
 	   rmail-insert-mime-forwarded-message-function
 	   (function rmail-insert-mime-forwarded-message)
+	   rmail-insert-mime-resent-message-function
+	   (function rmail-insert-mime-resent-message)
 	   rmail-search-mime-message-function
 	   (function rmail-search-mime-message)
 	   rmail-search-mime-header-function