From: morioka <morioka>
Date: Mon, 24 May 1999 13:04:27 +0000 (+0000)
Subject: (mime-parse-multipart): Refer body-start instead of header-end.
X-Git-Tag: chao-1_13_0~32
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=81963310fe6da6c1fdfd33dfd05e50c3f8f69d46;p=elisp%2Fflim.git

(mime-parse-multipart): Refer body-start instead of header-end.
---

diff --git a/mmbuffer.el b/mmbuffer.el
index 0533956..d5868dc 100644
--- a/mmbuffer.el
+++ b/mmbuffer.el
@@ -97,16 +97,18 @@
 	      (make-mime-content-type 'message 'rfc822)
 	    (make-mime-content-type 'text 'plain)
 	    ))
-	 (header-end (mime-buffer-entity-header-end-internal entity))
+	 (body-start (mime-buffer-entity-body-start-internal entity))
 	 (body-end (mime-buffer-entity-body-end-internal entity)))
     (save-restriction
       (goto-char body-end)
-      (narrow-to-region header-end
+      (narrow-to-region body-start
 			(if (re-search-backward close-delimiter nil t)
 			    (match-beginning 0)
 			  body-end))
-      (goto-char header-end)
-      (if (re-search-forward rsep nil t)
+      (goto-char body-start)
+      (if (re-search-forward
+	   (concat "^" (regexp-quote dash-boundary) "[ \t]*\n")
+	   nil t)
 	  (let ((cb (match-end 0))
 		ce ncb ret children
 		(node-id (mime-entity-node-id-internal entity))