From: morioka <morioka>
Date: Fri, 5 Sep 1997 08:34:28 +0000 (+0000)
Subject: (mime-view-display-entity, mime-article/rcnum-to-cinfo,
X-Git-Tag: semi-0_112~29
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=b2ac45f9e91bbdd682c8e92b6da61098bfe9877b;p=elisp%2Fsemi.git

(mime-view-display-entity, mime-article/rcnum-to-cinfo,
mime-view-follow-current-entity, mime-view-move-to-upper): Use
`mime::content-info/rcnum' instead of `mime-entity-info-rnum'.
---

diff --git a/mime-view.el b/mime-view.el
index ad86ed4..d4dfc14 100644
--- a/mime-view.el
+++ b/mime-view.el
@@ -6,7 +6,7 @@
 ;; Created: 1994/7/13
 ;;	Renamed: 1994/8/31 from tm-body.el
 ;;	Renamed: 1997/02/19 from tm-view.el
-;; Version: $Revision: 0.101 $
+;; Version: $Revision: 0.102 $
 ;; Keywords: MIME, multimedia, mail, news
 
 ;; This file is part of SEMI (SEMI is Emacs MIME Interfaces).
@@ -40,7 +40,7 @@
 ;;;
 
 (defconst mime-view-RCS-ID
-  "$Id: mime-view.el,v 0.101 1997-09-05 08:16:07 morioka Exp $")
+  "$Id: mime-view.el,v 0.102 1997-09-05 08:34:28 morioka Exp $")
 
 (defconst mime-view-version
   `,(get-version-string mime-view-RCS-ID))
@@ -503,7 +503,7 @@ The compressed face will be piped to this command.")
 	 (ctype (mime::content-info/type content))
 	 (params (mime::content-info/parameters content))
 	 (encoding (mime::content-info/encoding content))
-	 (rcnum (mime::content-info/rcnum content))
+	 (rcnum (mime-entity-info-rnum content))
 	 he e nb ne subj)
     (set-buffer ibuf)
     (goto-char beg)
@@ -652,7 +652,7 @@ The compressed face will be piped to this command.")
       )
   (find-if (function
 	    (lambda (ci)
-	      (equal (mime::content-info/rcnum ci) rcnum)
+	      (equal (mime-entity-info-rnum ci) rcnum)
 	      ))
 	   (mime/flatten-content-info cinfo)
 	   ))
@@ -919,7 +919,7 @@ It calls following-method selected from variable
       )
     (let* ((p-beg (previous-single-property-change (point) 'mime-view-cinfo))
 	   p-end
-	   (rcnum (mime::content-info/rcnum cinfo))
+	   (rcnum (mime-entity-info-rnum cinfo))
 	   (len (length rcnum))
 	   )
       (cond ((null p-beg)
@@ -950,7 +950,7 @@ It calls following-method selected from variable
 				(next-single-property-change
 				 (point) 'mime-view-cinfo))
 		     (goto-char e)
-		     (let ((rc (mime::content-info/rcnum
+		     (let ((rc (mime-entity-info-rnum
 				(get-text-property (point)
 						   'mime-view-cinfo))))
 		       (or (equal rcnum (nthcdr (- (length rc) len) rc))
@@ -981,7 +981,7 @@ It calls following-method selected from variable
 	  (goto-char (point-min))
 	  (insert "\n")
 	  (goto-char (point-min))
-	  (let ((rcnum (mime::content-info/rcnum cinfo)) ci str)
+	  (let ((rcnum (mime-entity-info-rnum cinfo)) ci str)
 	    (while (progn
 		     (setq str
 			   (save-excursion
@@ -1061,7 +1061,7 @@ If there is no upper entity, call function `mime-view-quit'."
       (backward-char)
       )
     (let ((r (mime-article/rcnum-to-cinfo
-	      (cdr (mime::content-info/rcnum cinfo))
+	      (cdr (mime-entity-info-rnum cinfo))
 	      (get-text-property 1 'mime-view-cinfo)))
 	  point)
       (catch 'tag