(mime-library-version): Constant.

[elisp/flim.git] / mmbuffer.el

diff --git a/mmbuffer.el b/mmbuffer.el
index 448d88e..7982db9 100644 (file)
--- a/mmbuffer.el
+++ b/mmbuffer.el
@@ -84,16 +84,14 @@
         (primary-type (mime-content-type-primary-type content-type)))
     (cond ((eq primary-type 'multipart)
           (mime-parse-multipart entity)
-          (mime-entity-children-internal entity)
           )
          ((and (eq primary-type 'message)
                (memq (mime-content-type-subtype content-type)
                      '(rfc822 news external-body)
                      ))
           (mime-parse-encapsulated entity)
-          (mime-entity-children-internal entity)
-          )
-         )))
+          ))
+    ))
 
 (mm-define-method entity-content ((entity buffer))
   (save-excursion
@@ -115,9 +113,9 @@
 (mm-define-method write-entity ((entity buffer) filename)
   (save-excursion
     (set-buffer (mime-entity-buffer-internal entity))
-    (write-region-as-binary (mime-entity-header-start-internal entity)
-                           (mime-entity-body-end-internal entity)
-                           filename)
+    (write-region-as-raw-text-CRLF (mime-entity-header-start-internal entity)
+                                  (mime-entity-body-end-internal entity)
+                                  filename)
     ))
 
 (mm-define-method write-entity-body ((entity buffer) filename)