- (setq entity (make-mime-entity-internal (or representation-type 'buffer)
- (current-buffer)
- content-type nil parent node-id
- (current-buffer)
- header-start header-end
- body-start body-end))
- (cond ((eq primary-type 'multipart)
- (mime-parse-multipart entity)
- )
- ((and (eq primary-type 'message)
- (memq (mime-content-type-subtype content-type)
- '(rfc822 news external-body)
- ))
- (mime-parse-encapsulated entity)
- )
- (t entity))))
+ (make-mime-entity-internal representation-type
+ (current-buffer)
+ content-type nil parent node-id
+ nil nil nil nil
+ nil nil nil nil
+ nil nil
+ (current-buffer)
+ header-start header-end
+ body-start body-end)
+ ))