From: morioka <morioka>
Date: Fri, 26 Jun 1998 16:17:10 +0000 (+0000)
Subject: (mime-entity-number): Add DOC.
X-Git-Tag: flim-1_7_0~12
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=c9fa4774b6ebb6b3ff7af49687482bdb706711e7;p=elisp%2Fflim.git

(mime-entity-number): Add DOC.
---

diff --git a/mime.el b/mime.el
index 0ba74c9..4f6555f 100644
--- a/mime.el
+++ b/mime.el
@@ -68,6 +68,7 @@ current-buffer, and return it.")
 (defalias 'mime-entity-node-id 'mime-entity-node-id-internal)
 
 (defsubst mime-entity-number (entity)
+  "Return entity-number of ENTITY."
   (reverse (mime-entity-node-id-internal entity)))
 
 (defun mime-find-entity-from-number (entity-number &optional message)
@@ -108,17 +109,21 @@ ENTITY is used."
 ;;; @ Entity Buffer
 ;;;
 
-(defalias 'mime-entity-buffer    'mime-entity-buffer-internal)
-(defalias 'mime-entity-point-min 'mime-entity-header-start-internal)
-(defalias 'mime-entity-point-max 'mime-entity-body-end-internal)
+(defalias 'mime-entity-buffer		'mime-entity-buffer-internal)
+
+(defalias 'mime-entity-point-min	'mime-entity-header-start-internal)
+(defalias 'mime-entity-point-max	'mime-entity-body-end-internal)
+
+(defalias 'mime-entity-header-start	'mime-entity-header-start-internal)
+(defalias 'mime-entity-header-end	'mime-entity-header-end-internal)
+
+(defalias 'mime-entity-body-start	'mime-entity-body-start-internal)
+(defalias 'mime-entity-body-end		'mime-entity-body-end-internal)
 
 
 ;;; @ Entity Header
 ;;;
 
-(defalias 'mime-entity-header-start 'mime-entity-header-start-internal)
-(defalias 'mime-entity-header-end   'mime-entity-header-end-internal)
-
 (defun mime-fetch-field (field-name &optional entity)
   (or (symbolp field-name)
       (setq field-name (intern (capitalize (capitalize field-name)))))
@@ -285,21 +290,7 @@ ENTITY is used."
 		  )))))))))
 
 
-;;; @ Entity Content
-;;;
-
-(defalias 'mime-entity-body-start 'mime-entity-body-start-internal)
-(defalias 'mime-entity-body-end   'mime-entity-body-end-internal)
-
-(defun mime-entity-content (entity)
-  (save-excursion
-    (set-buffer (mime-entity-buffer entity))
-    (mime-decode-string (buffer-substring (mime-entity-body-start entity)
-					  (mime-entity-body-end entity))
-			(mime-entity-encoding entity))))
-
-
-;;; @ Another Entity Information
+;;; @ Entity Attributes
 ;;;
 
 (defun mime-entity-uu-filename (entity)
@@ -336,6 +327,17 @@ ENTITY is used."
 			    (mime-entity-media-subtype entity-info)))
 
 
+;;; @ Entity Content
+;;;
+
+(defun mime-entity-content (entity)
+  (save-excursion
+    (set-buffer (mime-entity-buffer entity))
+    (mime-decode-string (buffer-substring (mime-entity-body-start entity)
+					  (mime-entity-body-end entity))
+			(mime-entity-encoding entity))))
+
+
 ;;; @ end
 ;;;