From 223f3f8b15e6d730d1e74768870a526626e6035b Mon Sep 17 00:00:00 2001 From: morioka Date: Sat, 24 Jul 1999 07:43:39 +0000 Subject: [PATCH] Add autoload settings for `mime-entity-content-type', `mime-parse-multipart' and `mime-parse-encapsulated' [to avoid warning]. (mime-entity-children): New method of `mime-entity' [moved from mmbuffer.el]. --- mime-def.el | 18 ++++++++++++++++++ 1 file changed, 18 insertions(+) diff --git a/mime-def.el b/mime-def.el index e1b6b0f..6b8effd 100644 --- a/mime-def.el +++ b/mime-def.el @@ -212,6 +212,10 @@ (require 'luna) +(autoload 'mime-entity-content-type "mime") +(autoload 'mime-parse-multipart "mime-parse") +(autoload 'mime-parse-encapsulated "mime-parse") + (luna-define-class mime-entity () (location content-type children parent @@ -232,6 +236,20 @@ (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))) + (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) + )) + )) + ;;; @ for mm-backend ;;; -- 1.7.10.4