From: morioka <morioka>
Date: Tue, 18 Mar 1997 08:04:53 +0000 (+0000)
Subject: (mime-view-play-current-entity): New implementation.
X-Git-Tag: Hokutetsu-Ishikawa-new~65
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=0e79054ca8c41a98823d7e9af61b2ab5d93374e6;p=elisp%2Fsemi.git

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

diff --git a/mime-play.el b/mime-play.el
index 7423368..f5bf62e 100644
--- 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)