From a418cae5075608e06f5013376b7819ab99566660 Mon Sep 17 00:00:00 2001 From: tomo Date: Wed, 21 Jun 2000 12:32:04 +0000 Subject: [PATCH] (mime-entity-children): Deleted. --- mmgeneric.el | 21 +++------------------ 1 file changed, 3 insertions(+), 18 deletions(-) diff --git a/mmgeneric.el b/mmgeneric.el index 034ed23..84d481b 100644 --- a/mmgeneric.el +++ b/mmgeneric.el @@ -32,8 +32,9 @@ (autoload 'mime-entity-content-type "mime") (autoload 'mime-parse-multipart "mime-parse") -(autoload 'mime-parse-encapsulated "mime-parse") -(autoload 'mime-parse-external "mime-parse") +(autoload 'mime-parse-message "mime-parse") +;; (autoload 'mime-parse-encapsulated "mime-parse") +;; (autoload 'mime-parse-external "mime-parse") (autoload 'mime-entity-content "mime") (luna-define-class mime-entity () @@ -56,22 +57,6 @@ (cdr (assq field-name (mime-entity-original-header-internal entity)))) -(luna-define-method mime-entity-children ((entity mime-entity)) - (let* ((content-type (mime-entity-content-type entity)) - (primary-type (mime-content-type-primary-type content-type)) - sub-type) - (cond ((eq primary-type 'multipart) - (mime-parse-multipart entity)) - ((eq primary-type 'message) - (setq sub-type (mime-content-type-subtype content-type)) - (cond ((eq sub-type 'external-body) - (mime-parse-external entity)) - ((memq sub-type '(rfc822 news)) - (mime-parse-encapsulated entity) - ;; [tomo] Should we make a variable to specify - ;; encapsulated media-types? - )))))) - (luna-define-method mime-insert-text-content ((entity mime-entity)) (insert (decode-mime-charset-string (mime-entity-content entity) -- 1.7.10.4