From: yamaoka <yamaoka>
Date: Mon, 25 May 1998 10:07:56 +0000 (+0000)
Subject: mime-play.el: Fixed for VM.
X-Git-Tag: semi-1_4_5_9~3
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=1d4bb8d63818d3712e201b9d0f049961087dae6e;p=elisp%2Fsemi.git

mime-play.el: Fixed for VM.
---

diff --git a/ChangeLog b/ChangeLog
index 239be39..563ae0c 100644
--- 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
--- 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)