From: yamaoka <yamaoka>
Date: Wed, 8 Sep 1999 05:16:19 +0000 (+0000)
Subject: (mime-show-echo-buffer): Rewrite.
X-Git-Tag: semi-pgpgpg_20~17
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=4917dcb254037966dbfbd118cf09128ca14af404;p=elisp%2Fsemi.git

(mime-show-echo-buffer): Rewrite.
---

diff --git a/mime-play.el b/mime-play.el
index 2e62ede..0497016 100644
--- a/mime-play.el
+++ b/mime-play.el
@@ -399,6 +399,7 @@ this function is called."
 	(height (if (functionp mime-echo-window-height)
 		    (funcall mime-echo-window-height)
 		  mime-echo-window-height))
+	(window-min-height 1)
 	start)
     (if win
 	(progn
@@ -413,9 +414,8 @@ this function is called."
 		     (error nil)))
 	(select-window (get-buffer-window (or mime-preview-buffer
 					      (current-buffer))))
-	(let ((window-min-height 1))
-	  (setq win (split-window-vertically (- (window-height) height)))
-	  )
+	(setq win
+	      (split-window-vertically (min -2 (- (window-height) height))))
 	(set-window-buffer win mime-echo-buffer-name)
 	(select-window win)
 	))