From: morioka <morioka>
Date: Fri, 13 Mar 1998 17:09:22 +0000 (+0000)
Subject: Rename `mime-raw-entity-info' -> `mime-raw-message-info'.
X-Git-Tag: semi-1_1_0~83
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=40427d216b61789291f93c40294c84b1e69d23cd;p=elisp%2Fsemi.git

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

diff --git a/mime-partial.el b/mime-partial.el
index ff5c916..9d60dbe 100644
--- a/mime-partial.el
+++ b/mime-partial.el
@@ -79,7 +79,7 @@ partial messages using mime-view."
 	      (mime-view-partial-message target)
 	      (set-buffer article-buffer)
 	      (setq parameters
-		    (mime-entity-info-parameters mime-raw-entity-info))
+		    (mime-entity-info-parameters mime-raw-message-info))
 	      (setq the-id (cdr (assoc "id" parameters)))
 	      (if (string= the-id id)
 		  (progn
diff --git a/mime-pgp.el b/mime-pgp.el
index cb39025..0be4d5e 100644
--- a/mime-pgp.el
+++ b/mime-pgp.el
@@ -120,7 +120,7 @@
   "Internal method to check multipart/signed."
   (let* ((rcnum (reverse (mime-raw-point-to-entity-number beg)))
 	 (oinfo (mime-raw-rcnum-to-cinfo (cons '1 rcnum)
-					     mime-raw-entity-info))
+					 mime-raw-message-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-raw-rcnum-to-cinfo (cons onum rmcnum)
-					     mime-raw-entity-info))
+					     mime-raw-message-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-raw-rcnum-to-cinfo (cons onum rmcnum)
-					     mime-raw-entity-info))
+					 mime-raw-message-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 1856645..bae3341 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-entity-info
+(defvar mime-raw-message-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-entity-info)
+(make-variable-buffer-local 'mime-raw-message-info)
 
 (defvar mime-preview-buffer nil
   "MIME-preview 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-entity-info (mime-parse-message ctl encoding))
+      (setq mime-raw-message-info (mime-parse-message ctl encoding))
       )
-  (let* ((cinfo mime-raw-entity-info)
+  (let* ((cinfo mime-raw-message-info)
 	 (pcl (mime/flatten-content-info cinfo))
 	 (the-buf (current-buffer))
 	 (mode major-mode)
@@ -577,20 +577,23 @@ The compressed face will be piped to this command.")
 ;;; @ entity information
 ;;;
 
-(defun mime-raw-point-to-entity-number (p &optional cinfo)
-  (or cinfo
-      (setq cinfo mime-raw-entity-info)
+(defun mime-raw-point-to-entity-number (position &optional message-info)
+  "Return entity-number from POTION 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 ((b (mime-entity-info-point-min cinfo))
-	(e (mime-entity-info-point-max cinfo))
-	(c (mime-entity-info-children cinfo))
+  (let ((b (mime-entity-info-point-min message-info))
+	(e (mime-entity-info-point-max message-info))
+	(c (mime-entity-info-children message-info))
 	)
-    (if (and (<= b p)(<= p e))
+    (if (and (<= b position)(<= position e))
 	(or (let (co ret (sn 0))
 	      (catch 'tag
 		(while c
 		  (setq co (car c))
-		  (setq ret (mime-raw-point-to-entity-number p co))
+		  (setq ret (mime-raw-point-to-entity-number position co))
 		  (cond ((eq ret t) (throw 'tag (list sn)))
 			(ret (throw 'tag (cons sn ret)))
 			)
@@ -605,7 +608,7 @@ The compressed face will be piped to this command.")
 
 (defun mime-raw-cnum-to-cinfo (cn &optional cinfo)
   (or cinfo
-      (setq cinfo mime-raw-entity-info)
+      (setq cinfo mime-raw-message-info)
       )
   (if (eq cn t)
       cinfo
@@ -620,7 +623,7 @@ The compressed face will be piped to this command.")
 
 (defun mime/flatten-content-info (&optional cinfo)
   (or cinfo
-      (setq cinfo mime-raw-entity-info)
+      (setq cinfo mime-raw-message-info)
       )
   (let ((dest (list cinfo))
 	(rcl (mime-entity-info-children cinfo))