(rmail-retry-failure): Special handling for mime.

(mail-mime-unsent-header): New variable.

1 files changed, 30 insertions, 14 deletions

diff --git a/lisp/mail/rmail.el b/lisp/mail/rmail.el
index 8eb37907f4c..8fc8f012457 100644
--- a/lisp/mail/rmail.el
+++ b/lisp/mail/rmail.el
@@ -2621,11 +2621,16 @@ typically for purposes of moderating a list."
 	  "^|? *---+ +Message text follows: +---+ *|?$")
   "A regexp that matches the separator before the text of a failed message.")
 
+(defvar mail-mime-unsent-header "^Content-Type: message/rfc822 *$"
+ "A regexp that matches the header of a MIME body part with a failed message.")
+
 (defun rmail-retry-failure ()
   "Edit a mail message which is based on the contents of the current message.
 For a message rejected by the mail system, extract the interesting headers and
 the body of the original message.
-The variable `mail-unsent-separator' should match the string that
+If the failed message is a MIME multipart message, it is searched for a
+body part with a header which matches the variable `mail-mime-unsent-header'.
+Otherwise, the variable `mail-unsent-separator' should match the string that
 delimits the returned original message.
 The variable `rmail-retry-ignored-headers' is a regular expression
 specifying headers which should not be copied into the new message."
@@ -2637,23 +2642,34 @@ specifying headers which should not be copied into the new message."
     (save-excursion
       ;; Narrow down to just the quoted original message
       (rmail-beginning-of-message)
-      (let ((case-fold-search t))
-	(if (search-forward "This is a MIME-encapsulated message\n\n--" nil t)
+      (let* ((case-fold-search t)
+	     (top (point))
+	     (content-type
+	      (save-restriction
+		;; Fetch any content-type header in current message
+		(search-forward "\n\n") (narrow-to-region top (point))
+		(mail-fetch-field "Content-Type") )) )
+	;; Handle MIME multipart bounce messages
+	(if (and content-type 
+		 (string-match 
+		  ";[\n\t ]*boundary=\"?\\([-0-9a-z'()+_,./:=?]+\\)\"?" 
+		  content-type))
 	    (let ((codestring
-		   (buffer-substring (progn (beginning-of-line) (point))
-				     (progn (end-of-line) (point)))))
-	      (or (re-search-forward mail-unsent-separator nil t)
+		   (concat "\n--"
+			   (substring content-type (match-beginning 1) 
+				                   (match-end 1)))))
+	      (or (re-search-forward mail-mime-unsent-header nil t)
 		  (error "Cannot find beginning of header in failed message"))
-	      (or (and (search-forward codestring nil t)
-		       (search-forward "\n\n" nil t))
+	      (or (search-forward "\n\n" nil t)
 		  (error "Cannot find end of Mime data in failed message"))
 	      (setq bounce-start (point))
-	      (save-excursion
-		(goto-char (point-max))
-		(search-backward codestring)
-		(setq bounce-end (point)))
-	      (or (search-forward "\n\n" nil t)
-		  (error "Cannot find end of header in failed message")))
+	      (or (search-forward codestring nil t)
+		  (error "Cannot find end of Mime data in failed message"))
+	      (setq bounce-end (match-beginning 0))
+;	      (or (search-forward "\n\n" nil t)
+;		  (error "Cannot find end of header in failed message"))
+	      )
+	  ;; non-MIME bounce
 	  (or (re-search-forward mail-unsent-separator nil t)
 	      (error "Cannot parse this as a failure message"))
 	  (skip-chars-forward "\n")