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 (file)
--- 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)))
 
   (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)
 (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)
           (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
           rmail-search-mime-message-function
           (function rmail-search-mime-message)
           rmail-search-mime-header-function