- (make-mime-entity (current-buffer)
- header-start header-end body-start body-end
- node-id content-type content-disposition encoding
- (nreverse children))
- ))
+ (mime-entity-set-children entity (nreverse children))
+ entity))
+
+(defun mime-parse-encapsulated (entity)
+ (mime-entity-set-children
+ entity
+ (save-restriction
+ (narrow-to-region (mime-entity-body-start entity)
+ (mime-entity-body-end entity))
+ (list (mime-parse-message
+ nil nil (cons 0 (mime-entity-node-id entity))))
+ ))
+ entity)