(mime-view-play-current-entity): New implementation.

diff --git a/mime-play.el b/mime-play.el
index 7423368..f5bf62e 100644 (file)
--- a/mime-play.el
+++ b/mime-play.el
@@ -5,7 +5,7 @@
 ;; Author: MORIOKA Tomohiko <morioka@jaist.ac.jp>
 ;; Created: 1995/9/26 (separated from tm-view.el)
 ;;     Renamed: 1997/2/21 from tm-play.el
-;; Version: $Id: mime-play.el,v 0.24 1997-03-17 15:37:40 morioka Exp $
+;; Version: $Id: mime-play.el,v 0.25 1997-03-18 08:04:53 morioka Exp $
 ;; Keywords: MIME, multimedia, mail, news
 
 ;; This file is part of SEMI (SEMI is Emacs MIME Interfaces).
@@ -46,15 +46,15 @@ If MODE is specified, play as it.  Default MODE is \"play\"."
   (or mode
       (setq mode "play")
       )
-  (let ((pc (mime-preview/point-pcinfo (point))))
-    (if pc
-       (let ((the-buf (current-buffer)))
+  (let ((cinfo (get-text-property (point) 'mime-view-cinfo)))
+    (if cinfo
+       (let ((the-buf (current-buffer))
+             (raw-buffer (get-text-property (point) 'mime-view-raw-buffer))
+             )
          (setq mime-preview/after-decoded-position (point))
-         (set-buffer (mime::preview-content-info/buffer pc))
-         (mime-article/decode-content
-          (mime::preview-content-info/content-info pc) mode)
-         (if (eq (current-buffer)
-                 (mime::preview-content-info/buffer pc))
+         (set-buffer raw-buffer)
+         (mime-article/decode-content cinfo mode)
+         (if (eq (current-buffer) raw-buffer)
              (progn
                (set-buffer the-buf)
                (goto-char mime-preview/after-decoded-position)