From: tomo <tomo>
Date: Sat, 9 Dec 2000 04:06:34 +0000 (+0000)
Subject: (mmbuffer-parse-multipart): Add new optional argument
X-Git-Tag: flim-1_14_0-pre3~2
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=2036f05d798038f84c7a9f82bf10f2a54f6f891f;p=elisp%2Fflim.git

(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
--- a/mmbuffer.el
+++ b/mmbuffer.el
@@ -262,11 +262,12 @@
 ;;; @ children
 ;;;
 
-(defun mmbuffer-parse-multipart (entity)
+(defun mmbuffer-parse-multipart (entity &optional representation-type)
   (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")))
@@ -320,7 +321,8 @@
 	  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)
@@ -332,7 +334,8 @@
 		  (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))))))))