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

diff --git a/mime-view.el b/mime-view.el
index 246b6b8..d35f848 100644 (file)
--- 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
 ;;;