(mime-display-caesar): Use `view-buffer' instead of `view-mode-enter'.

diff --git a/mime-play.el b/mime-play.el
index 9876101..53dd361 100644 (file)
--- a/mime-play.el
+++ b/mime-play.el
@@ -5,7 +5,7 @@
 ;; Author: MORIOKA Tomohiko <morioka@jaist.ac.jp>
 ;; Created: 1995/9/26 (separated from tm-view.el)
 ;;     Renamed: 1997/2/21 from tm-play.el
-;; Version: $Id: mime-play.el,v 0.38 1997-05-07 09:37:54 morioka Exp $
+;; Version: $Id: mime-play.el,v 0.39 1997-05-07 10:01:07 morioka Exp $
 ;; Keywords: MIME, multimedia, mail, news
 
 ;; This file is part of SEMI (SEMI is Emacs MIME Interfaces).
@@ -454,6 +454,7 @@ It is registered to variable `mime-view-quitting-method-alist'."
   "Internal method for mime-view to display ROT13-47-48 message."
   (let* ((cnum (mime-article/point-content-number beg))
         (new-name (format "%s-%s" (buffer-name) cnum))
+        (the-buf (current-buffer))
         (mother mime-view-buffer)
         (charset (cdr (assoc "charset" cal)))
         (encoding (cdr (assq 'encoding cal)))
@@ -486,7 +487,8 @@ It is registered to variable `mime-view-quitting-method-alist'."
       (tm:caesar-region)
       )
     (set-buffer-modified-p nil)
-    (view-mode-enter mother 'kill-buffer)
+    (set-buffer mother)
+    (view-buffer new-name)
     ))