(mime-echo-window-height): New variable.

diff --git a/mime-play.el b/mime-play.el
index 7b943d2..3cefa56 100644 (file)
--- a/mime-play.el
+++ b/mime-play.el
@@ -5,7 +5,7 @@
 ;; Author: MORIOKA Tomohiko <morioka@jaist.ac.jp>
 ;; Created: 1995/9/26 (separated from tm-view.el)
 ;;     Renamed: 1997/2/21 from tm-play.el
-;; Version: $Id: mime-play.el,v 0.33 1997-03-27 20:56:38 morioka Exp $
+;; Version: $Id: mime-play.el,v 0.34 1997-03-27 22:07:50 morioka Exp $
 ;; Keywords: MIME, multimedia, mail, news
 
 ;; This file is part of SEMI (SEMI is Emacs MIME Interfaces).
@@ -169,6 +169,17 @@ If MODE is specified, play as it.  Default MODE is \"play\"."
 (defvar mime-echo-window-is-shared-with-bbdb t
   "*If non-nil, mime-echo window is shared with BBDB window.")
 
+(defvar mime-echo-window-height
+  (function
+   (lambda ()
+     (/ (window-height) 5)
+     ))
+  "*Size of mime-echo window.
+It allows function or integer.  If it is function,
+`mime-show-echo-buffer' calls it to get height of mime-echo window.
+Otherwise `mime-show-echo-buffer' uses it as height of mime-echo
+window.")
+
 (defun mime-show-echo-buffer (&rest forms)
   "Show mime-echo buffer to display MIME-playing information."
   (get-buffer-create mime-echo-buffer-name)
@@ -182,7 +193,12 @@ If MODE is specified, play as it.  Default MODE is \"play\"."
                 )
            (set-window-buffer win mime-echo-buffer-name)
          (select-window (get-buffer-window mime-view-buffer))
-         (setq win (split-window-vertically (/ (* (window-height) 3) 4)))
+         (setq win (split-window-vertically
+                    (- (window-height)
+                       (if (functionp mime-echo-window-height)
+                           (funcall mime-echo-window-height)
+                         mime-echo-window-height)
+                       )))
          (set-window-buffer win mime-echo-buffer-name)
          ))
     (select-window win)