From: Chris Hanson <org/chris-hanson/cph>
Date: Fri, 20 Oct 2000 04:33:20 +0000 (+0000)
Subject: Implement new editor variable imail-summary-height to allow the user
X-Git-Tag: 20090517-FFI~3237
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=684d97bc04f94df78cb9c8d1dbe5fe59d5670265;p=mit-scheme.git

Implement new editor variable imail-summary-height to allow the user
to specify the height of the summary buffer.  Normally this is set to
1/4 making the summary 1/4 the height of the screen.
---

diff --git a/v7/src/imail/imail-summary.scm b/v7/src/imail/imail-summary.scm
index ffc8134d3..48c797455 100644
--- a/v7/src/imail/imail-summary.scm
+++ b/v7/src/imail/imail-summary.scm
@@ -1,6 +1,6 @@
 ;;; -*-Scheme-*-
 ;;;
-;;; $Id: imail-summary.scm,v 1.27 2000/09/30 00:29:44 cph Exp $
+;;; $Id: imail-summary.scm,v 1.28 2000/10/20 04:33:20 cph Exp $
 ;;;
 ;;; Copyright (c) 2000 Massachusetts Institute of Technology
 ;;;
@@ -43,6 +43,15 @@ If false, the message buffer is updated but not popped up."
   "Width of the subject field, in characters."
   35
   exact-nonnegative-integer?)
+
+(define-variable imail-summary-height
+  "Height of the summary window, either in lines or as a fraction.
+An exact positive integer means a fixed number of lines.
+A real number between 0 and 1 exclusive means a fraction of the screen height."
+  1/4
+  (lambda (x)
+    (or (and (exact-integer? x) (positive? x))
+	(and (real? x) (< 0 x 1)))))
 
 (define-command imail-summary
   "Display a summary of the selected folder, one line per message."
@@ -455,8 +464,16 @@ SUBJECT is a string of regexps separated by commas."
 (define (imail-summary-pop-up-message-buffer buffer)
   (let ((folder-buffer (buffer-get buffer 'IMAIL-FOLDER-BUFFER #f)))
     (if (and folder-buffer (selected-buffer? buffer))
-	(pop-up-buffer folder-buffer #f))))
-
+	(pop-up-buffer folder-buffer #f
+		       `((HEIGHT
+			  ,(let ((height
+				  (ref-variable imail-summary-height buffer)))
+			     (if (exact-integer? height)
+				 height
+				 (round->exact
+				  (* (window-y-size (selected-window))
+				     height))))))))))
+
 (define (sync-imail-summary-buffer buffer)
   (let ((message
 	 (selected-message #f (buffer-get buffer 'IMAIL-FOLDER-BUFFER #f))))