From: morioka <morioka>
Date: Sat, 14 Mar 1998 21:24:15 +0000 (+0000)
Subject: Rename `mime-raw-entity-number-to-entity-info' ->
X-Git-Tag: semi-1_1_0~31
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=440dbe5f4d5d56b0df83c9a4eee5bd45c8511d2c;p=elisp%2Fsemi.git

Rename `mime-raw-entity-number-to-entity-info' ->
`mime-raw-find-entity-from-number'.
---

diff --git a/mime-view.el b/mime-view.el
index e3064fe..1b9a6f4 100644
--- a/mime-view.el
+++ b/mime-view.el
@@ -55,7 +55,7 @@ Please use reference function `mime-entity-SLOT' to get value of SLOT.
 
 Following is a list of slots of the structure:
 
-node-id		reversed entity-number (list of integers or t)
+node-id		reversed entity-number (list of integers)
 point-min	beginning point of region in raw-buffer
 point-max	end point of region in raw-buffer
 type		media-type (symbol)
@@ -66,8 +66,8 @@ encoding	Content-Transfer-Encoding (string or nil)
 children	entities included in this entity (list of content-infos)
 
 If an entity includes other entities in its body, such as multipart or
-message/rfc822, entity-infos of other entities are included in
-`children', so entity-info become a tree.")
+message/rfc822, `mime-entity' structures of them are included in
+`children', so the `mime-entity' structure become a tree.")
 (make-variable-buffer-local 'mime-raw-message-info)
 
 (defvar mime-preview-buffer nil
@@ -284,8 +284,7 @@ Each elements are string of TYPE/SUBTYPE, e.g. \"text/plain\".")
     (and (member ctype mime-view-visible-media-type-list)
 	 (if (and (eq media-type 'application)
 		  (eq media-subtype 'octet-stream))
-	     (member (mime-entity-encoding entity-info)
-		     '(nil "7bit" "8bit"))
+	     (member (mime-entity-encoding entity) '(nil "7bit" "8bit"))
 	   t))))
 
 
@@ -651,15 +650,13 @@ If optional argument MESSAGE-INFO is not specified,
 
 (defsubst mime-raw-find-entity-from-node-id (entity-node-id
 					     &optional message-info)
-  "Return entity-info from ENTITY-NODE-ID in mime-raw-buffer.
+  "Return entity from ENTITY-NODE-ID in mime-raw-buffer.
 If optional argument MESSAGE-INFO is not specified,
 `mime-raw-message-info' is used."
-  (mime-raw-entity-number-to-entity-info (reverse entity-node-id)
-					 message-info))
+  (mime-raw-find-entity-from-number (reverse entity-node-id) message-info))
 
-(defun mime-raw-entity-number-to-entity-info (entity-number
-					      &optional message-info)
-  "Return entity-info from ENTITY-NUMBER in mime-raw-buffer.
+(defun mime-raw-find-entity-from-number (entity-number &optional message-info)
+  "Return entity from ENTITY-NUMBER in mime-raw-buffer.
 If optional argument MESSAGE-INFO is not specified,
 `mime-raw-message-info' is used."
   (or message-info
@@ -671,7 +668,7 @@ If optional argument MESSAGE-INFO is not specified,
 	  message-info
 	(let ((rc (nth sn (mime-entity-children message-info))))
 	  (if rc
-	      (mime-raw-entity-number-to-entity-info (cdr entity-number) rc)
+	      (mime-raw-find-entity-from-number (cdr entity-number) rc)
 	    ))
 	))))