From 2036f05d798038f84c7a9f82bf10f2a54f6f891f Mon Sep 17 00:00:00 2001 From: tomo Date: Sat, 9 Dec 2000 04:06:34 +0000 Subject: [PATCH] (mmbuffer-parse-multipart): Add new optional argument `representation-type'. (mmbuffer-parse-encapsulated): Likewise. --- mmbuffer.el | 15 +++++++++------ 1 file changed, 9 insertions(+), 6 deletions(-) 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)))))))) -- 1.7.10.4