From 73332a04943272fb6b58f4f8a8ecb7a838ce0f0c Mon Sep 17 00:00:00 2001 From: morioka Date: Fri, 13 Mar 1998 17:23:49 +0000 Subject: [PATCH] (mime-raw-entity-number-to-entity-info): Add DOC-string. --- mime-view.el | 26 ++++++++++++++------------ 1 file changed, 14 insertions(+), 12 deletions(-) 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) )) )))) -- 1.7.10.4