From 35664a35dc82e09962f9aa270ad41c6807bafe7f Mon Sep 17 00:00:00 2001 From: morioka Date: Tue, 18 Mar 1997 08:08:44 +0000 Subject: [PATCH] Function `mime-preview/cinfo-to-pcinfo' was abolished. --- mime-view.el | 15 ++------------- 1 file changed, 2 insertions(+), 13 deletions(-) diff --git a/mime-view.el b/mime-view.el index d35f848..d8d7b2b 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.66 $ +;; Version: $Revision: 0.67 $ ;; 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.66 1997-03-18 08:07:23 morioka Exp $") + "$Id: mime-view.el,v 0.67 1997-03-18 08:08:44 morioka Exp $") (defconst mime-view-version (get-version-string mime-view-RCS-ID)) @@ -847,17 +847,6 @@ button-2 Move to point under the mouse cursor (run-hooks 'mime-view-mode-hook) ))) -(defun mime-preview/cinfo-to-pcinfo (cinfo) - (let ((rpcl mime::preview/content-list) cell) - (catch 'tag - (while rpcl - (setq cell (car rpcl)) - (if (eq cinfo (mime::preview-content-info/content-info cell)) - (throw 'tag cell) - ) - (setq rpcl (cdr rpcl)) - )))) - (autoload 'mime-view-play-current-entity "mime-play" "Play current entity." t) (defun mime-view-extract-current-entity () -- 1.7.10.4