From fa900682bdd5af2224b6f31d5aa7c566cf6dd6a1 Mon Sep 17 00:00:00 2001 From: morioka Date: Sun, 7 Jun 1998 14:22:36 +0000 Subject: [PATCH] (mime-method-to-display-caesar): Delete code to avoid problem of `mime-text-insert-decoded-body'. --- mime-play.el | 7 ++----- 1 file changed, 2 insertions(+), 5 deletions(-) diff --git a/mime-play.el b/mime-play.el index 7e8b00a..e40578c 100644 --- a/mime-play.el +++ b/mime-play.el @@ -615,8 +615,7 @@ saved as binary. Otherwise the region is saved by `write-region'." (let* ((entity (mime-raw-find-entity-from-point start)) (new-name (format "%s-%s" (buffer-name) (reverse (mime-entity-node-id entity)))) - (mother mime-preview-buffer) - (the-buf (current-buffer))) + (mother mime-preview-buffer)) (let ((pwin (or (get-buffer-window mother) (get-largest-window))) (buf (get-buffer-create new-name))) @@ -626,9 +625,7 @@ saved as binary. Otherwise the region is saved by `write-region'." ) (setq buffer-read-only nil) (erase-buffer) - (let ((mime-raw-buffer the-buf)) - (mime-text-insert-decoded-body entity) - ) + (mime-text-insert-decoded-body entity) (mule-caesar-region (point-min) (point-max)) (set-buffer-modified-p nil) (set-buffer mother) -- 1.7.10.4