From 80a3df5393a21b314dccbe0a7a303b575a8c3370 Mon Sep 17 00:00:00 2001 From: tomo Date: Tue, 19 Dec 2000 11:47:15 +0000 Subject: [PATCH] (mime-entity-children): Add DOC. (mime-entity-node-id): Add DOC. (mime-entity-content-type): Add DOC. (mime-entity-content-disposition): Add DOC. (mime-entity-encoding): Add DOC. --- mime.el | 8 ++++++++ 1 file changed, 8 insertions(+) diff --git a/mime.el b/mime.el index 0f99f18..8fed8a8 100644 --- a/mime.el +++ b/mime.el @@ -91,10 +91,12 @@ representation-type." ;;; (defun mime-entity-children (entity) + "Return list of entities included in the ENTITY." (or (mime-entity-children-internal entity) (luna-send entity 'mime-entity-children entity))) (defun mime-entity-node-id (entity) + "Return node-id of ENTITY." (mime-entity-node-id-internal entity)) (defun mime-entity-number (entity) @@ -267,6 +269,7 @@ If MESSAGE is specified, it is regarded as root entity." ;; (make-obsolete 'mime-fetch-field 'mime-entity-fetch-field) (defun mime-entity-content-type (entity) + "Return content-type of ENTITY." (or (mime-entity-content-type-internal entity) (let ((ret (mime-entity-fetch-field entity "Content-Type"))) (if ret @@ -275,6 +278,7 @@ If MESSAGE is specified, it is regarded as root entity." )))) (defun mime-entity-content-disposition (entity) + "Return content-disposition of ENTITY." (or (mime-entity-content-disposition-internal entity) (let ((ret (mime-entity-fetch-field entity "Content-Disposition"))) (if ret @@ -283,6 +287,10 @@ If MESSAGE is specified, it is regarded as root entity." )))) (defun mime-entity-encoding (entity &optional default-encoding) + "Return content-transfer-encoding of ENTITY. +If the ENTITY does not have Content-Transfer-Encoding field, this +function returns DEFAULT-ENCODING. If it is nil, \"7bit\" is used as +default value." (or (mime-entity-encoding-internal entity) (let ((ret (mime-entity-fetch-field entity "Content-Transfer-Encoding"))) (mime-entity-set-encoding-internal -- 1.7.10.4