From: morioka <morioka>
Date: Fri, 13 Mar 1998 17:23:49 +0000 (+0000)
Subject: (mime-raw-entity-number-to-entity-info): Add DOC-string.
X-Git-Tag: semi-1_1_0~81
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=73332a04943272fb6b58f4f8a8ecb7a838ce0f0c;p=elisp%2Fsemi.git

(mime-raw-entity-number-to-entity-info): Add DOC-string.
---

diff --git a/mime-view.el b/mime-view.el
index bccc0cb..f28e23d 100644
--- a/mime-view.el
+++ b/mime-view.el
@@ -582,8 +582,7 @@ The compressed face will be piped to this command.")
 If optional argument MESSAGE-INFO is not specified,
 `mime-raw-message-info' is used."
   (or message-info
-      (setq message-info mime-raw-message-info)
-      )
+      (setq message-info mime-raw-message-info))
   (let ((b (mime-entity-info-point-min message-info))
 	(e (mime-entity-info-point-max message-info))
 	(c (mime-entity-info-children message-info))
@@ -606,18 +605,21 @@ If optional argument MESSAGE-INFO is not specified,
   (mime-raw-entity-number-to-entity-info (reverse rnum) cinfo)
   )
 
-(defun mime-raw-entity-number-to-entity-info (cn &optional cinfo)
-  (or cinfo
-      (setq cinfo mime-raw-message-info)
-      )
-  (if (eq cn t)
-      cinfo
-    (let ((sn (car cn)))
+(defun mime-raw-entity-number-to-entity-info (entity-number
+					      &optional message-info)
+  "Return entity-info from ENTITY-NUMBER in mime-raw-buffer.
+If optional argument MESSAGE-INFO is not specified,
+`mime-raw-message-info' is used."
+  (or message-info
+      (setq message-info mime-raw-message-info))
+  (if (eq entity-number t)
+      message-info
+    (let ((sn (car entity-number)))
       (if (null sn)
-	  cinfo
-	(let ((rc (nth sn (mime-entity-info-children cinfo))))
+	  message-info
+	(let ((rc (nth sn (mime-entity-info-children message-info))))
 	  (if rc
-	      (mime-raw-entity-number-to-entity-info (cdr cn) rc)
+	      (mime-raw-entity-number-to-entity-info (cdr entity-number) rc)
 	    ))
 	))))