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