From: morioka <morioka>
Date: Fri, 13 Mar 1998 17:40:41 +0000 (+0000)
Subject: Rename `mime/flatten-content-info' -> `mime-raw-flatten-message-info'.
X-Git-Tag: semi-1_1_0~79
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=50d5a4df761b2b6ba22d9932f967475d57687773;p=elisp%2Fsemi.git

Rename `mime/flatten-content-info' -> `mime-raw-flatten-message-info'.
---

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))