From 2e04dc51cb99fc8e5ed882ff1ecfb601af46e873 Mon Sep 17 00:00:00 2001 From: yamaoka Date: Mon, 25 May 1998 10:23:09 +0000 Subject: [PATCH] mime-play.el: Fixed for VM. --- ChangeLog | 9 +++++++++ mime-play.el | 11 +++-------- 2 files changed, 12 insertions(+), 8 deletions(-) diff --git a/ChangeLog b/ChangeLog index d1659ff..e0daf4e 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,3 +1,12 @@ +1998-05-25 Katsumi Yamaoka + + * 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 * WEMI: Version 1.4.5 (Ninomiya) 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) -- 1.7.10.4