(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 (file)
--- 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)