From 031d643bc45813b815873d5a1be24e8afea066e9 Mon Sep 17 00:00:00 2001 From: morioka Date: Fri, 13 Mar 1998 17:49:24 +0000 Subject: [PATCH] Rename `mime-entity-info-rnum' -> `mime-entity-info-reversed-number'. --- mime-parse.el | 20 ++++++++++---------- mime-view.el | 10 +++++----- 2 files changed, 15 insertions(+), 15 deletions(-) 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 -- 1.7.10.4