From: morioka <morioka>
Date: Sat, 14 Mar 1998 12:25:10 +0000 (+0000)
Subject: (mime-raw-point-to-entity-node-id): New function.
X-Git-Tag: semi-1_1_0~54
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=ec7a15d2044278ece0df0b45490f31bed5d81d5c;p=elisp%2Fsemi.git

(mime-raw-point-to-entity-node-id): New function.
---

diff --git a/mime-view.el b/mime-view.el
index f90afe8..80917f4 100644
--- a/mime-view.el
+++ b/mime-view.el
@@ -602,12 +602,19 @@ If optional argument MESSAGE-INFO is not specified,
 		  )))
 	    t))))
 
-(defsubst mime-raw-entity-node-id-to-entity-info (entity-number
+(defun mime-raw-point-to-entity-node-id (position &optional message-info)
+  "Return entity-node-id from POTION in mime-raw-buffer.
+If optional argument MESSAGE-INFO is not specified,
+`mime-raw-message-info' is used."
+  (reverse (mime-raw-point-to-entity-number position message-info)))
+
+(defsubst mime-raw-entity-node-id-to-entity-info (entity-node-id
 						  &optional message-info)
   "Return entity-info 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-number) message-info))
+  (mime-raw-entity-number-to-entity-info (reverse entity-node-id)
+					 message-info))
 
 (defun mime-raw-entity-number-to-entity-info (entity-number
 					      &optional message-info)