From: morioka <morioka>
Date: Mon, 8 Jun 1998 03:50:08 +0000 (+0000)
Subject: (mime-parse-multipart): fixed.
X-Git-Tag: semi-1_5_3~8
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=b7576f169f0962524fda526726fb52d1e58e35a6;p=elisp%2Fsemi.git

(mime-parse-multipart): fixed.
---

diff --git a/mime-parse.el b/mime-parse.el
index 67c03b7..5ea30dd 100644
--- a/mime-parse.el
+++ b/mime-parse.el
@@ -229,12 +229,12 @@ If is is not found, return DEFAULT-ENCODING."
 	    (make-mime-content-type 'text 'plain)
 	    ))
 	 cb ce ret ncb children (i 0))
-    (goto-char body-end)
-    (if (re-search-backward close-delimiter nil t)
-	(setq body-end (match-beginning 0))
-      )
     (save-restriction
-      (narrow-to-region header-end body-end)
+      (goto-char body-end)
+      (narrow-to-region header-end
+			(if (re-search-backward close-delimiter nil t)
+			    (match-beginning 0)
+			  body-end))
       (goto-char header-start)
       (re-search-forward rsep nil t)
       (setq cb (match-end 0))