X-Git-Url: http://git.chise.org/gitweb/?a=blobdiff_plain;f=mime-parse.el;h=492e549cb183cf98c5dc806c309cc76bd9105147;hb=88171b3394c7739f418d2125e8975de4ad707206;hp=287e14d8b3097876e82a6cf61407615ea4102f0c;hpb=174e9b33467bf47e05487a84943a8c2b8b74e40c;p=elisp%2Fflim.git

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