From: morioka <morioka>
Date: Tue, 18 Mar 1997 08:07:23 +0000 (+0000)
Subject: Function `mime-preview/point-pcinfo' was abolished.
X-Git-Tag: Hokutetsu-Ishikawa-new~63
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=df2ae455d728b9be3d21b8d95e46d5b93796dab5;p=elisp%2Fsemi.git

Function `mime-preview/point-pcinfo' was abolished.
---

diff --git a/mime-view.el b/mime-view.el
index 246b6b8..d35f848 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.65 $
+;; Version: $Revision: 0.66 $
 ;; 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.65 1997-03-18 08:06:39 morioka Exp $")
+  "$Id: mime-view.el,v 0.66 1997-03-18 08:07:23 morioka Exp $")
 
 (defconst mime-view-version (get-version-string mime-view-RCS-ID))
 
@@ -676,24 +676,6 @@ The compressed face will be piped to this command.")
       )
     dest))
 
-(defun mime-preview/point-pcinfo (p &optional pcl)
-  (or pcl
-      (setq pcl mime::preview/content-list)
-      )
-  (catch 'tag
-    (let ((r pcl) cell)
-      (while r
-	(setq cell (car r))
-	(if (and (<= (mime::preview-content-info/point-min cell) p)
-		 (<= p (mime::preview-content-info/point-max cell))
-		 )
-	    (throw 'tag cell)
-	  )
-	(setq r (cdr r))
-	))
-    (car (last pcl))
-    ))
-
 
 ;;; @ MIME viewer mode
 ;;;