From 50d5a4df761b2b6ba22d9932f967475d57687773 Mon Sep 17 00:00:00 2001 From: morioka Date: Fri, 13 Mar 1998 17:40:41 +0000 Subject: [PATCH] Rename `mime/flatten-content-info' -> `mime-raw-flatten-message-info'. --- mime-view.el | 22 +++++++++++----------- 1 file changed, 11 insertions(+), 11 deletions(-) diff --git a/mime-view.el b/mime-view.el index 0148d9f..2829ef4 100644 --- a/mime-view.el +++ b/mime-view.el @@ -415,7 +415,7 @@ The compressed face will be piped to this command.") (setq mime-raw-message-info (mime-parse-message ctl encoding)) ) (let* ((cinfo mime-raw-message-info) - (pcl (mime/flatten-content-info cinfo)) + (pcl (mime-raw-flatten-message-info cinfo)) (the-buf (current-buffer)) (mode major-mode) ) @@ -627,17 +627,17 @@ If optional argument MESSAGE-INFO is not specified, )) )))) -(defun mime/flatten-content-info (&optional cinfo) - (or cinfo - (setq cinfo mime-raw-message-info) - ) - (let ((dest (list cinfo)) - (rcl (mime-entity-info-children cinfo)) - ) +(defun mime-raw-flatten-message-info (&optional message-info) + "Return list of entity-infos 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)) + (let ((dest (list message-info)) + (rcl (mime-entity-info-children message-info))) (while rcl - (setq dest (nconc dest (mime/flatten-content-info (car rcl)))) - (setq rcl (cdr rcl)) - ) + (setq dest (nconc dest (mime-raw-flatten-message-info (car rcl)))) + (setq rcl (cdr rcl))) dest)) -- 1.7.10.4