# HG changeset patch
# User Karl Heuer <kwzh@gnu.org>
# Date 907714460 0
# Node ID 85656c9cca2afab2dd28ea233251d3ff3be7c4ec
# Parent  acb6d2c4220b1aa91b62890f906ae048ad4343df
(rmail-retry-failure): Allow blanks in boundary
string.  Expose mime stuff while searching.

diff -r acb6d2c4220b -r 85656c9cca2a lisp/mail/rmail.el
--- a/lisp/mail/rmail.el	Tue Oct 06 22:35:51 1998 +0000
+++ b/lisp/mail/rmail.el	Tue Oct 06 22:54:20 1998 +0000
@@ -2989,10 +2989,13 @@
   (require 'mail-utils)
   (let ((rmail-this-buffer (current-buffer))
 	(msgnum rmail-current-message)
+	(pruned (rmail-msg-is-pruned))
 	bounce-start bounce-end bounce-indent resending)
     (save-excursion
       ;; Narrow down to just the quoted original message
-      (rmail-beginning-of-message)
+      (if pruned
+	  (rmail-toggle-header 0)
+	(rmail-beginning-of-message))
       (let* ((case-fold-search t)
 	     (top (point))
 	     (content-type
@@ -3003,7 +3006,7 @@
 	;; Handle MIME multipart bounce messages
 	(if (and content-type 
 		 (string-match 
-		  ";[\n\t ]*boundary=\"?\\([-0-9a-z'()+_,./:=?]+\\)\"?" 
+		  ";[\n\t ]*boundary=\"?\\([-0-9a-z'()+_,./:=? ]+\\)\"?" 
 		  content-type))
 	    (let ((codestring
 		   (concat "\n--"
@@ -3084,7 +3087,9 @@
 	    (goto-char (point-min))
 	    (mail-position-on-field (if resending "Resent-To" "To") t)
 	    (set-buffer rmail-this-buffer)
-	    (rmail-beginning-of-message))))))
+	    (rmail-beginning-of-message))))
+    (if pruned
+	(rmail-toggle-header))))
 
 (defun rmail-summary-exists ()
   "Non-nil iff in an RMAIL buffer and an associated summary buffer exists.