From: morioka <morioka>
Date: Tue, 26 Jan 1999 13:41:53 +0000 (+0000)
Subject: (mime-view-caesar): Select window which displays current-buffer if it
X-Git-Tag: semi-1_13-199901261900~8
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=b8ef6e104e0887fc6ecacc5b9516751fbd274bff;p=elisp%2Fsemi.git

(mime-view-caesar): Select window which displays current-buffer if it
is not selected <to fix problem with mouse operations>.
---

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