mime-play.el: Fixed for VM.

diff --git a/ChangeLog b/ChangeLog
index 239be39..563ae0c 100644 (file)
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,11 @@
+1998-05-25  Katsumi Yamaoka   <yamaoka@jpl.org>
+
+       * mime-play.el (mime-raw-play-entity): Abolish point correcting
+       procedures for VM.
+       
+       * mime-play.el (mime-preview-play-current-entity): Do widen befor
+       playing the entity.
+
 1998-05-21  MORIOKA Tomohiko  <morioka@jaist.ac.jp>
 
        * SEMI: Version 1.4.5 (Tomari) released.

diff --git a/mime-play.el b/mime-play.el
index 943519c..f135bb9 100644 (file)
--- a/mime-play.el
+++ b/mime-play.el
@@ -78,7 +78,9 @@ If MODE is specified, play as it.  Default MODE is \"play\"."
              (raw-buffer (get-text-property (point) 'mime-view-raw-buffer)))
          (setq mime-preview-after-decoded-position (point))
          (set-buffer raw-buffer)
-         (mime-raw-play-entity entity-info mode)
+         (save-restriction
+           (widen)
+           (mime-raw-play-entity entity-info mode))
          (when (eq (current-buffer) raw-buffer)
            (set-buffer the-buf)
            (goto-char mime-preview-after-decoded-position)
@@ -127,13 +129,6 @@ specified, play as it.  Default MODE is \"play\"."
        (encoding (mime-entity-encoding entity-info)))
     (or content-type
        (setq content-type (make-mime-content-type 'text 'plain)))
-    ;; Check for VM
-    (if (< beg (point-min))
-       (setq beg (point-min))
-      )
-    (if (< (point-max) end)
-       (setq end (point-max))
-      )
     (let (method cal ret)
       (setq cal (list* (cons 'major-mode major-mode)
                       (cons 'encoding encoding)