(mmbuffer-parse-multipart): Add new optional argument

`representation-type'.
(mmbuffer-parse-encapsulated): Likewise.

diff --git a/mmbuffer.el b/mmbuffer.el
index 97fc783..6a7803a 100644 (file)
--- a/mmbuffer.el
+++ b/mmbuffer.el
@@ -262,11 +262,12 @@
 ;;; @ children
 ;;;
 
 ;;; @ children
 ;;;
 

-(defun mmbuffer-parse-multipart (entity)
+(defun mmbuffer-parse-multipart (entity &optional representation-type)

   (with-current-buffer (mime-buffer-entity-buffer-internal entity)
   (with-current-buffer (mime-buffer-entity-buffer-internal entity)

-    (let* ((representation-type
-           (mime-entity-representation-type-internal entity))
-          (content-type (mime-entity-content-type-internal entity))
+    (or representation-type
+       (setq representation-type
+             (mime-entity-representation-type-internal entity)))
+    (let* ((content-type (mime-entity-content-type-internal entity))

           (dash-boundary
            (concat "--"
                    (mime-content-type-parameter content-type "boundary")))
           (dash-boundary
            (concat "--"
                    (mime-content-type-parameter content-type "boundary")))

@@ -320,7 +321,8 @@
          nil)
        ))))
 
          nil)
        ))))
 

-(defun mmbuffer-parse-encapsulated (entity &optional external)
+(defun mmbuffer-parse-encapsulated (entity &optional external
+                                          representation-type)

   (mime-entity-set-children-internal
    entity
    (with-current-buffer (mime-buffer-entity-buffer-internal entity)
   (mime-entity-set-children-internal
    entity
    (with-current-buffer (mime-buffer-entity-buffer-internal entity)

@@ -332,7 +334,8 @@
                  (progn
                    (require 'mmexternal)
                    'mime-external-entity)
                  (progn
                    (require 'mmexternal)
                    'mime-external-entity)

-               (mime-entity-representation-type-internal entity))
+               (or representation-type
+                   (mime-entity-representation-type-internal entity)))

              nil
              entity (cons 0 (mime-entity-node-id-internal entity))))))))
 
              nil
              entity (cons 0 (mime-entity-node-id-internal entity))))))))