From ec7a15d2044278ece0df0b45490f31bed5d81d5c Mon Sep 17 00:00:00 2001 From: morioka Date: Sat, 14 Mar 1998 12:25:10 +0000 Subject: [PATCH] (mime-raw-point-to-entity-node-id): New function. --- mime-view.el | 11 +++++++++-- 1 file changed, 9 insertions(+), 2 deletions(-) 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) -- 1.7.10.4