-(defsubst mime-raw-find-entity-from-node-id (entity-node-id
- &optional message-info)
- "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-find-entity-from-number (reverse entity-node-id) message-info))
-
-(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
- (setq message-info mime-raw-message-info))
- (if (eq entity-number t)
- message-info
- (let ((sn (car entity-number)))
- (if (null sn)
- message-info
- (let ((rc (nth sn (mime-entity-children message-info))))
- (if rc
- (mime-raw-find-entity-from-number (cdr entity-number) rc)
- ))
- ))))
-
-(defun mime-raw-find-entity-from-point (point &optional message-info)
- "Return entity from POINT 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 (and (<= (mime-entity-point-min message-info) point)
- (<= point (mime-entity-point-max message-info)))
- (let ((children (mime-entity-children message-info)))
- (catch 'tag
- (while children
- (let ((ret
- (mime-raw-find-entity-from-point point (car children))))
- (if ret
- (throw 'tag ret)
- ))
- (setq children (cdr children)))
- message-info))))
-
-
-(defsubst mime-entity-parent (entity &optional message-info)
- "Return mother entity of ENTITY.
-If optional argument MESSAGE-INFO is not specified,
-`mime-raw-message-info' in buffer of ENTITY is used."
- (mime-raw-find-entity-from-node-id
- (cdr (mime-entity-node-id entity))
- (or message-info
- (save-excursion
- (set-buffer (mime-entity-buffer entity))
- mime-raw-message-info))))
-
-(defsubst mime-entity-situation (entity)