From: morioka <morioka>
Date: Fri, 13 Mar 1998 14:45:14 +0000 (+0000)
Subject: Rename `mime-raw-content-info' -> `mime-raw-entity-info'.
X-Git-Tag: semi-1_1_0~115
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=5883098c895e9edbbc301155878ad46e1a2e7bc2;p=elisp%2Fsemi.git

Rename `mime-raw-content-info' -> `mime-raw-entity-info'.
---

diff --git a/mime-pgp.el b/mime-pgp.el
index ab1e668..b5d301c 100644
--- a/mime-pgp.el
+++ b/mime-pgp.el
@@ -120,7 +120,7 @@
   "Internal method to check multipart/signed."
   (let* ((rcnum (reverse (mime-article/point-content-number beg)))
 	 (oinfo (mime-article/rcnum-to-cinfo (cons '1 rcnum)
-					     mime-raw-content-info))
+					     mime-raw-entity-info))
 	 )
     (mime-playback-entity oinfo (cdr (assq 'mode cal)))
     ))
@@ -184,7 +184,7 @@ It should be ISO 639 2 letter language code such as en, ja, ...")
 		 (1+ knum)))
 	 (raw-buf (current-buffer))
 	 (oinfo (mime-article/rcnum-to-cinfo (cons onum rmcnum)
-					     mime-raw-content-info))
+					     mime-raw-entity-info))
 	 kbuf
 	 (basename (expand-file-name "tm" mime-temp-directory))
 	 (orig-file (make-temp-name basename))
@@ -269,7 +269,7 @@ It should be ISO 639 2 letter language code such as en, ja, ...")
 		   (1- knum)
 		 (1+ knum)))
 	 (oinfo (mime-article/rcnum-to-cinfo (cons onum rmcnum)
-					     mime-raw-content-info))
+					     mime-raw-entity-info))
 	 (obeg (mime-entity-info-point-min oinfo))
 	 (oend (mime-entity-info-point-max oinfo))
 	 )
diff --git a/mime-view.el b/mime-view.el
index b9cccc5..56f3193 100644
--- a/mime-view.el
+++ b/mime-view.el
@@ -297,7 +297,7 @@ Please redefine this function if you want to change default setting."
 ;;; @@@ in raw buffer
 ;;;
 
-(defvar mime-raw-content-info
+(defvar mime-raw-entity-info
   "Information about structure of message.
 Please use reference function `mime-entity-info-SLOT' to get value of
 SLOT.
@@ -317,7 +317,7 @@ children	entities included in this entity (list of content-infos)
 If an entity includes other entities in its body, such as multipart or
 message/rfc822, entity-infos of other entities are included in
 `children', so entity-info become a tree.")
-(make-variable-buffer-local 'mime-raw-content-info)
+(make-variable-buffer-local 'mime-raw-entity-info)
 
 (defvar mime-view-buffer nil
   "MIME View buffer corresponding with the (raw) buffer.")
@@ -411,9 +411,9 @@ The compressed face will be piped to this command.")
 	(set-buffer ibuf)
 	))
   (or mime-view-redisplay
-      (setq mime-raw-content-info (mime-parse-message ctl encoding))
+      (setq mime-raw-entity-info (mime-parse-message ctl encoding))
       )
-  (let* ((cinfo mime-raw-content-info)
+  (let* ((cinfo mime-raw-entity-info)
 	 (pcl (mime/flatten-content-info cinfo))
 	 (the-buf (current-buffer))
 	 (mode major-mode)
@@ -579,7 +579,7 @@ The compressed face will be piped to this command.")
 
 (defun mime-article/point-content-number (p &optional cinfo)
   (or cinfo
-      (setq cinfo mime-raw-content-info)
+      (setq cinfo mime-raw-entity-info)
       )
   (let ((b (mime-entity-info-point-min cinfo))
 	(e (mime-entity-info-point-max cinfo))
@@ -605,7 +605,7 @@ The compressed face will be piped to this command.")
 
 (defun mime-article/cnum-to-cinfo (cn &optional cinfo)
   (or cinfo
-      (setq cinfo mime-raw-content-info)
+      (setq cinfo mime-raw-entity-info)
       )
   (if (eq cn t)
       cinfo
@@ -620,7 +620,7 @@ The compressed face will be piped to this command.")
 
 (defun mime/flatten-content-info (&optional cinfo)
   (or cinfo
-      (setq cinfo mime-raw-content-info)
+      (setq cinfo mime-raw-entity-info)
       )
   (let ((dest (list cinfo))
 	(rcl (mime-entity-info-children cinfo))