(primary-type (mime-content-type-primary-type content-type)))
(cond ((eq primary-type 'multipart)
(mime-parse-multipart entity)
- (mime-entity-children-internal entity)
)
((and (eq primary-type 'message)
(memq (mime-content-type-subtype content-type)
'(rfc822 news external-body)
))
(mime-parse-encapsulated entity)
- (mime-entity-children-internal entity)
- )
- )))
+ ))
+ ))
(mm-define-method entity-content ((entity buffer))
(save-excursion