From: morioka <morioka>
Date: Fri, 13 Mar 1998 17:49:24 +0000 (+0000)
Subject: Rename `mime-entity-info-rnum' -> `mime-entity-info-reversed-number'.
X-Git-Tag: semi-1_1_0~78
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=031d643bc45813b815873d5a1be24e8afea066e9;p=elisp%2Fsemi.git

Rename `mime-entity-info-rnum' -> `mime-entity-info-reversed-number'.
---

diff --git a/mime-parse.el b/mime-parse.el
index 9f6a9ae..936178e 100644
--- a/mime-parse.el
+++ b/mime-parse.el
@@ -155,21 +155,21 @@ and return parsed it. [mime-parse.el]"
 ;;; @ message parser
 ;;;
 
-(defsubst make-mime-entity-info (rcnum
+(defsubst make-mime-entity-info (reversed-number
 				 point-min point-max
 				 media-type media-subtype parameters
 				 encoding children)
-  (vector rcnum point-min point-max
+  (vector reversed-number point-min point-max
 	  media-type media-subtype parameters encoding children))
 
-(defsubst mime-entity-info-rnum (entity-info)		(aref entity-info 0))
-(defsubst mime-entity-info-point-min (entity-info)	(aref entity-info 1))
-(defsubst mime-entity-info-point-max (entity-info)	(aref entity-info 2))
-(defsubst mime-entity-info-media-type (entity-info)	(aref entity-info 3))
-(defsubst mime-entity-info-media-subtype (entity-info)	(aref entity-info 4))
-(defsubst mime-entity-info-parameters (entity-info)	(aref entity-info 5))
-(defsubst mime-entity-info-encoding (entity-info)	(aref entity-info 6))
-(defsubst mime-entity-info-children (entity-info)	(aref entity-info 7))
+(defsubst mime-entity-info-reversed-number (entity-info) (aref entity-info 0))
+(defsubst mime-entity-info-point-min (entity-info)	 (aref entity-info 1))
+(defsubst mime-entity-info-point-max (entity-info)	 (aref entity-info 2))
+(defsubst mime-entity-info-media-type (entity-info)	 (aref entity-info 3))
+(defsubst mime-entity-info-media-subtype (entity-info)	 (aref entity-info 4))
+(defsubst mime-entity-info-parameters (entity-info)	 (aref entity-info 5))
+(defsubst mime-entity-info-encoding (entity-info)	 (aref entity-info 6))
+(defsubst mime-entity-info-children (entity-info)	 (aref entity-info 7))
 
 (defsubst mime-entity-info-type/subtype (entity-info)
   (let ((type (mime-entity-info-media-type entity-info)))
diff --git a/mime-view.el b/mime-view.el
index 2829ef4..387b1a6 100644
--- a/mime-view.el
+++ b/mime-view.el
@@ -455,7 +455,7 @@ The compressed face will be piped to this command.")
 		      )))
 	 (params (mime-entity-info-parameters content))
 	 (encoding (mime-entity-info-encoding content))
-	 (rcnum (mime-entity-info-rnum content))
+	 (rcnum (mime-entity-info-reversed-number content))
 	 he e nb ne subj)
     (set-buffer ibuf)
     (goto-char beg)
@@ -907,7 +907,7 @@ It calls following-method selected from variable
       )
     (let* ((p-beg (previous-single-property-change (point) 'mime-view-cinfo))
 	   p-end
-	   (rcnum (mime-entity-info-rnum cinfo))
+	   (rcnum (mime-entity-info-reversed-number cinfo))
 	   (len (length rcnum))
 	   )
       (cond ((null p-beg)
@@ -938,7 +938,7 @@ It calls following-method selected from variable
 				(next-single-property-change
 				 (point) 'mime-view-cinfo))
 		     (goto-char e)
-		     (let ((rc (mime-entity-info-rnum
+		     (let ((rc (mime-entity-info-reversed-number
 				(get-text-property (point)
 						   'mime-view-cinfo))))
 		       (or (equal rcnum (nthcdr (- (length rc) len) rc))
@@ -969,7 +969,7 @@ It calls following-method selected from variable
 	  (goto-char (point-min))
 	  (insert "\n")
 	  (goto-char (point-min))
-	  (let ((rcnum (mime-entity-info-rnum cinfo)) ci str)
+	  (let ((rcnum (mime-entity-info-reversed-number cinfo)) ci str)
 	    (while (progn
 		     (setq
 		      str
@@ -1054,7 +1054,7 @@ If there is no upper entity, call function `mime-preview-quit'."
       (backward-char)
       )
     (let ((r (mime-raw-reversed-entity-number-to-entity-info
-	      (cdr (mime-entity-info-rnum cinfo))
+	      (cdr (mime-entity-info-reversed-number cinfo))
 	      (get-text-property 1 'mime-view-cinfo)))
 	  point)
       (catch 'tag