* mel-b-ccl.el: New file.

[elisp/flim.git] / mime-parse.el

diff --git a/mime-parse.el b/mime-parse.el
index 7e71b3c..8951509 100644 (file)
--- 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)