From 81cc898c88f5b2dbbda94da6e7b8b5f63cec1115 Mon Sep 17 00:00:00 2001 From: Chris Hanson Date: Thu, 26 Oct 2000 22:16:45 +0000 Subject: [PATCH] Don't use POP-UP-BUFFER to split the window; use WINDOW-SPLIT-VERTICALLY! instead. Also, tweak fixed layout generator so that it doesn't go into infinite recursion. --- v7/src/imail/imail-summary.scm | 16 ++++++++-------- 1 file changed, 8 insertions(+), 8 deletions(-) diff --git a/v7/src/imail/imail-summary.scm b/v7/src/imail/imail-summary.scm index e0d8f7620..e49bb04fb 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.30 2000/10/26 16:41:07 cph Exp $ +;;; $Id: imail-summary.scm,v 1.31 2000/10/26 22:16:45 cph Exp $ ;;; ;;; Copyright (c) 2000 Massachusetts Institute of Technology ;;; @@ -161,9 +161,10 @@ SUBJECT is a string of regexps separated by commas." (create-buffer-layout (lambda (window buffers) (let ((buffer (car buffers))) - (select-buffer buffer window) - (imail-summary-pop-up-message-buffer buffer - window))) + (if (eq? (window-buffer window) buffer) + (imail-summary-pop-up-message-buffer buffer + window) + (select-buffer buffer window)))) (list buffer folder-buffer))))) buffer))))) (buffer-put! buffer 'IMAIL-SUMMARY-DESCRIPTION description) @@ -484,10 +485,9 @@ SUBJECT is a string of regexps separated by commas." (if (or (default-object? window) (not window)) (selected-window) window))) - (if (and folder-buffer (selected-buffer? buffer)) - (pop-up-buffer folder-buffer #f - `((HEIGHT ,(imail-summary-height buffer window)) - (SCREEN ,(window-screen window))))))) + (if (and folder-buffer (eq? (window-buffer window) buffer)) + (window-split-vertically! window + (imail-summary-height buffer window))))) (define (imail-summary-height buffer window) (let ((height (ref-variable imail-summary-height buffer))) -- 2.25.1