From: morioka <morioka>
Date: Sun, 7 Jun 1998 14:22:36 +0000 (+0000)
Subject: (mime-method-to-display-caesar): Delete code to avoid problem of
X-Git-Tag: semi-1_5_2~14
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=fa900682bdd5af2224b6f31d5aa7c566cf6dd6a1;p=elisp%2Fsemi.git

(mime-method-to-display-caesar): Delete code to avoid problem of
`mime-text-insert-decoded-body'.
---

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)