From e4201c41a133bee1e65b2b3e222f8fef827bc0ad Mon Sep 17 00:00:00 2001 From: morioka Date: Wed, 7 May 1997 10:01:07 +0000 Subject: [PATCH] (mime-display-caesar): Use `view-buffer' instead of `view-mode-enter'. --- mime-play.el | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) 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 ;; 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) )) -- 1.7.10.4