From b8ef6e104e0887fc6ecacc5b9516751fbd274bff Mon Sep 17 00:00:00 2001
From: morioka <morioka>
Date: Tue, 26 Jan 1999 13:41:53 +0000
Subject: [PATCH] (mime-view-caesar): Select window which displays
 current-buffer if it is not selected <to fix problem with
 mouse operations>.

---
 mime-play.el |    5 +++++
 1 file changed, 5 insertions(+)

diff --git a/mime-play.el b/mime-play.el
index 66e38f3..6c00a38 100644
--- a/mime-play.el
+++ b/mime-play.el
@@ -670,7 +670,12 @@ It is registered to variable `mime-preview-quitting-method-alist'."
       (mule-caesar-region (point-min) (point-max))
       (set-buffer-modified-p nil)
       )
+    (let ((win (get-buffer-window (current-buffer))))
+      (or (eq (selected-window) win)
+	  (select-window (or win (get-largest-window)))
+	  ))
     (view-buffer buf)
+    (goto-char (point-min))
     ))
 
 
-- 
1.7.10.4