From: morioka <morioka>
Date: Tue, 26 Jan 1999 07:35:01 +0000 (+0000)
Subject: (mime-view-caesar): New implementation.
X-Git-Tag: semi-1_13-199901261900~11
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=a931e6e2a8c223db9f24fe0e23ad758d3274a488;p=elisp%2Fsemi.git

(mime-view-caesar): New implementation.
---

diff --git a/mime-play.el b/mime-play.el
index 9f3e742..66e38f3 100644
--- a/mime-play.el
+++ b/mime-play.el
@@ -661,23 +661,16 @@ It is registered to variable `mime-preview-quitting-method-alist'."
 
 (defun mime-view-caesar (entity situation)
   "Internal method for mime-view to display ROT13-47-48 message."
-  (let* ((new-name (format "%s-%s" (buffer-name)
-			   (mime-entity-number entity)))
-	 (mother (current-buffer)))
-    (let ((pwin (or (get-buffer-window mother)
-		    (get-largest-window)))
-	  (buf (get-buffer-create new-name)))
-      (set-window-buffer pwin buf)
-      (set-buffer buf)
-      (select-window pwin)
+  (let ((buf (get-buffer-create
+	      (format "%s-%s" (buffer-name) (mime-entity-number entity)))))
+    (with-current-buffer buf
+      (setq buffer-read-only nil)
+      (erase-buffer)
+      (mime-insert-text-content entity)
+      (mule-caesar-region (point-min) (point-max))
+      (set-buffer-modified-p nil)
       )
-    (setq buffer-read-only nil)
-    (erase-buffer)
-    (mime-insert-text-content entity)
-    (mule-caesar-region (point-min) (point-max))
-    (set-buffer-modified-p nil)
-    (set-buffer mother)
-    (view-buffer new-name)
+    (view-buffer buf)
     ))