# HG changeset patch
# User Gerd Moellmann <gerd@gnu.org>
# Date 991296552 0
# Node ID b598473542411a2d67759a1f282342844acdf8d0
# Parent  e1400bd914f0b20358f285031b04995ca8d342c1
(rmail-revert): Modify to work in
rmail-view-buffer.

(rmail-insert-mime-resent-message-function): New
variable.
(rmail-resend): Modify to work in `rmail-view-buffer'; call
`rmail-insert-mime-resent-message-function' if `rmail-enable-mime'
is non-nil.

diff -r e1400bd914f0 -r b59847354241 lisp/mail/rmail.el
--- a/lisp/mail/rmail.el	Thu May 31 08:08:41 2001 +0000
+++ b/lisp/mail/rmail.el	Thu May 31 08:09:12 2001 +0000
@@ -432,6 +432,14 @@
 is the outgoing mail buffer.")
 
 ;;;###autoload
+(defvar rmail-insert-mime-resent-message-function nil
+  "Function to insert a message in MIME format so it can be resent.
+This function is called if `rmail-enable-mime' is non-nil.
+It is called with one argument FORWARD-BUFFER, which is a
+buffer containing the message to forward.  The current buffer
+is the outgoing mail buffer.")
+
+;;;###autoload
 (defvar rmail-search-mime-message-function nil
   "Function to check if a regexp matches a MIME message.
 This function is called if `rmail-enable-mime' is non-nil.
@@ -1110,6 +1118,7 @@
 
 ;; Handle M-x revert-buffer done in an rmail-mode buffer.
 (defun rmail-revert (arg noconfirm)
+  (set-buffer rmail-buffer)
   (let* ((revert-buffer-function (default-value 'revert-buffer-function))
 	 (rmail-enable-multibyte enable-multibyte-characters)
 	 ;; See similar code in `rmail'.
@@ -1119,7 +1128,8 @@
 	;; If the user said "yes", and we changed something,
 	;; reparse the messages.
 	(progn
-	  (rmail-mode-2)
+	  (set-buffer rmail-buffer)
+  	  (rmail-mode-2)
 	  ;; Convert all or part to Babyl file if possible.
 	  (rmail-convert-file)
 	  ;; We have read the file as raw-text, so the buffer is set to
@@ -3215,7 +3225,8 @@
   (interactive "sResend to: ")
   (require 'sendmail)
   (require 'mailalias)
-  (unless (eq rmail-buffer (current-buffer))
+  (unless (or (eq rmail-view-buffer (current-buffer))
+	      (eq rmail-buffer (current-buffer)))
     (error "Not an Rmail buffer"))
   (if (not from) (setq from user-mail-address))
   (let ((tembuf (generate-new-buffer " sendmail temp"))
@@ -3224,7 +3235,9 @@
     (unwind-protect
 	(with-current-buffer tembuf
 	  ;;>> Copy message into temp buffer
-	  (insert-buffer-substring mailbuf)
+	  (if rmail-enable-mime
+	      (funcall rmail-insert-mime-resent-message-function mailbuf)
+	    (insert-buffer-substring mailbuf))
 	  (goto-char (point-min))
 	  ;; Delete any Sender field, since that's not specifiable.
 	  ; Only delete Sender fields in the actual header.