From: morioka <morioka>
Date: Wed, 7 May 1997 10:01:07 +0000 (+0000)
Subject: (mime-display-caesar): Use `view-buffer' instead of `view-mode-enter'.
X-Git-Tag: Hokutetsu-Ishikawa-new~12
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=e4201c41a133bee1e65b2b3e222f8fef827bc0ad;p=elisp%2Fsemi.git

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