X-Git-Url: http://git.chise.org/gitweb/?a=blobdiff_plain;ds=sidebyside;f=mime-parse.el;h=8951509b576c4f375ae2af82a0b832fa64b6143e;hb=d0f10b946e5ff78d869d16245a00a19e987aa13e;hp=7e71b3cca49bb2a0445b1006a231c5e8bbad58eb;hpb=84ab37bcf6a49b8fe328d83731ef84eb04713231;p=elisp%2Fflim.git

diff --git a/mime-parse.el b/mime-parse.el
index 7e71b3c..8951509 100644
--- a/mime-parse.el
+++ b/mime-parse.el
@@ -201,7 +201,7 @@ If is is not found, return DEFAULT-ENCODING."
 	    (mime-entity-set-children-internal entity (nreverse children))
 	    )
 	(mime-entity-set-content-type-internal
-	 entity (make-mime-content-type 'application 'octet-stream))
+	 entity (make-mime-content-type 'message 'x-broken))
 	nil)
       )))
 
@@ -242,6 +242,9 @@ If is is not found, return DEFAULT-ENCODING."
     (make-mime-entity-internal representation-type
 			       (current-buffer)
 			       content-type nil parent node-id
+			       nil nil nil nil
+			       nil nil nil nil
+			       nil nil
 			       (current-buffer)
 			       header-start header-end
 			       body-start body-end)