Rename `mime-view-entity-info' -> `mime-view-entity'.

[elisp/semi.git] / mime-play.el

diff --git a/mime-play.el b/mime-play.el
index 333a16f..0ccb3ed 100644 (file)
--- 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)
        )