X-Git-Url: http://git.chise.org/gitweb/?a=blobdiff_plain;f=mime-play.el;h=0ccb3ed4c4def2c9749d3e4c762c5658ace72548;hb=165e1d1eba3f7584c5e68732f783bc2c911a2818;hp=333a16f03bc92a3d24d6d4f5dfc47d100bc401ec;hpb=3b24f92cafaebf7dca667b692dd8ee887e118bc8;p=elisp%2Fsemi.git

diff --git a/mime-play.el b/mime-play.el
index 333a16f..0ccb3ed 100644
--- a/mime-play.el
+++ b/mime-play.el
@@ -44,7 +44,7 @@ If MODE is specified, play as it.  Default MODE is \"play\"."
   (interactive)
   (or mode
       (setq mode "play"))
-  (let ((entity-info (get-text-property (point) 'mime-view-entity-info)))
+  (let ((entity-info (get-text-property (point) 'mime-view-entity)))
     (if entity-info
 	(let ((the-buf (current-buffer))
 	      (raw-buffer (get-text-property (point) 'mime-view-raw-buffer)))
@@ -61,12 +61,12 @@ If MODE is specified, play as it.  Default MODE is \"play\"."
 It decodes the entity to call internal or external method.  The method
 is selected from variable `mime-acting-condition'.  If MODE is
 specified, play as it.  Default MODE is \"play\"."
-  (let ((beg (mime-entity-info-point-min entity-info))
-	(end (mime-entity-info-point-max entity-info))
-	(c-type (mime-entity-info-media-type entity-info))
-	(c-subtype (mime-entity-info-media-subtype entity-info))
-	(params (mime-entity-info-parameters entity-info))
-	(encoding (mime-entity-info-encoding entity-info))
+  (let ((beg (mime-entity-point-min entity-info))
+	(end (mime-entity-point-max entity-info))
+	(c-type (mime-entity-media-type entity-info))
+	(c-subtype (mime-entity-media-subtype entity-info))
+	(params (mime-entity-parameters entity-info))
+	(encoding (mime-entity-encoding entity-info))
 	)
     (or c-type
 	(setq c-type 'text
@@ -289,9 +289,9 @@ window.")
 ;;; @ mail/news message
 ;;;
 
-(defun mime-view-quitting-method-for-mime-show-message-mode ()
+(defun mime-preview-quitting-method-for-mime-show-message-mode ()
   "Quitting method for mime-view.
-It is registered to variable `mime-view-quitting-method-alist'."
+It is registered to variable `mime-preview-quitting-method-alist'."
   (let ((mother mime-mother-buffer)
 	(win-conf mime-preview-original-window-configuration)
 	)