(mime-preview-play-current-entity): Don't refer text-property

`mime-view-raw-buffer'.

diff --git a/mime-play.el b/mime-play.el
index ce4d45f..c95351b 100644 (file)
--- a/mime-play.el
+++ b/mime-play.el
@@ -79,7 +79,7 @@ If MODE is specified, play as it.  Default MODE is \"play\"."
   (let ((entity (get-text-property (point) 'mime-view-entity)))
     (if entity
        (let ((the-buf (current-buffer))
-             (raw-buffer (get-text-property (point) 'mime-view-raw-buffer)))
+             (raw-buffer (mime-entity-buffer entity)))
          (setq mime-preview-after-decoded-position (point))
          (set-buffer raw-buffer)
          (mime-raw-play-entity entity mode)