From: morioka <morioka>
Date: Fri, 5 Sep 1997 11:18:28 +0000 (+0000)
Subject: (mime-view-header-visible-p, mime-view-body-visible-p,
X-Git-Tag: semi-0_112~25
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=97a9d88b2bf95ff41c9aa8ab5ac6e09161e06d0c;p=elisp%2Fsemi.git

(mime-view-header-visible-p, mime-view-body-visible-p,
mime-view-entity-button-function, mime-view-display-entity,
mime-view-follow-current-entity): Use `mime-entity-info-type/subtype'
instead of `mime::content-info/type'.
---

diff --git a/mime-view.el b/mime-view.el
index d4dfc14..8f3f1c2 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.102 $
+;; Version: $Revision: 0.103 $
 ;; 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.102 1997-09-05 08:34:28 morioka Exp $")
+  "$Id: mime-view.el,v 0.103 1997-09-05 11:18:28 morioka Exp $")
 
 (defconst mime-view-version
   `,(get-version-string mime-view-RCS-ID))
@@ -204,7 +204,7 @@ Each elements are regexp of field-name.")
 (defun mime-view-header-visible-p (rcnum cinfo)
   "Return non-nil if header of current entity is visible."
   (or (null rcnum)
-      (member (mime::content-info/type
+      (member (mime-entity-info-type/subtype
 	       (mime-article/rcnum-to-cinfo (cdr rcnum) cinfo))
 	      mime-view-childrens-header-showing-Content-Type-list)
       ))
@@ -213,7 +213,7 @@ Each elements are regexp of field-name.")
   (let (ccinfo)
     (or ctype
 	(setq ctype
-	      (mime::content-info/type
+	      (mime-entity-info-type/subtype
 	       (setq ccinfo (mime-article/rcnum-to-cinfo rcnum cinfo))
 	       ))
 	)
@@ -284,7 +284,7 @@ Please redefine this function if you want to change default setting."
   (or (null rcnum)
       (string= ctype "application/x-selection")
       (and (string= ctype "application/octet-stream")
-	   (string= (mime::content-info/type
+	   (string= (mime-entity-info-type/subtype
 		     (mime-article/rcnum-to-cinfo (cdr rcnum) cinfo))
 		    "multipart/encrypted"))
       (mime-view-insert-entity-button rcnum cinfo ctype params subj encoding)
@@ -500,7 +500,7 @@ The compressed face will be piped to this command.")
   "Display entity from content-info CONTENT."
   (let* ((beg (mime-entity-info-point-min content))
 	 (end (mime-entity-info-point-max content))
-	 (ctype (mime::content-info/type content))
+	 (ctype (mime-entity-info-type/subtype content))
 	 (params (mime::content-info/parameters content))
 	 (encoding (mime::content-info/encoding content))
 	 (rcnum (mime-entity-info-rnum content))
@@ -996,7 +996,7 @@ It calls following-method selected from variable
 				(concat "^"
 					(apply (function regexp-or) fields)
 					":") ""))))
-		     (if (string= (mime::content-info/type ci)
+		     (if (string= (mime-entity-info-type/subtype ci)
 				  "message/rfc822")
 			 nil
 		       (if str