(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 (file)
--- 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