From: shuhei-k <shuhei-k>
Date: Fri, 19 Jun 1998 14:14:13 +0000 (+0000)
Subject: (mime-parse-multipart): Fix typo.
X-Git-Tag: flim-1_5_0~46
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=88171b3394c7739f418d2125e8975de4ad707206;p=elisp%2Fflim.git

(mime-parse-multipart): Fix typo.
(mime-parse-message): Parse message/external-body.
---

diff --git a/mime-parse.el b/mime-parse.el
index 287e14d..492e549 100644
--- a/mime-parse.el
+++ b/mime-parse.el
@@ -219,7 +219,7 @@ If is is not found, return DEFAULT-ENCODING."
 			(if (re-search-backward close-delimiter nil t)
 			    (match-beginning 0)
 			  body-end))
-      (goto-char header-start)
+      (goto-char header-end)
       (re-search-forward rsep nil t)
       (setq cb (match-end 0))
       (while (re-search-forward rsep nil t)
@@ -230,7 +230,6 @@ If is is not found, return DEFAULT-ENCODING."
 	  (setq ret (mime-parse-message dc-ctl "7bit" (cons i node-id)))
 	  )
 	(setq children (cons ret children))
-	(goto-char (mime-entity-point-max ret))
 	(goto-char (setq cb ncb))
 	(setq i (1+ i))
 	)
@@ -292,7 +291,7 @@ mime-{parse|read}-Content-Type."
 	   )
 	  ((and (eq primary-type 'message)
 		(memq (mime-content-type-subtype content-type)
-		      '(rfc822 news)
+		      '(rfc822 news external-body)
 		      ))
            (make-mime-entity (current-buffer)
 			     header-start header-end body-start body-end