From bcf46293ef74b911f50d8abef5024281cff6ada4 Mon Sep 17 00:00:00 2001 From: Chris Hanson Date: Thu, 26 Oct 2000 16:41:07 +0000 Subject: [PATCH] Only create buffer-layout when summary buffer is created, not when it is being reused. --- v7/src/imail/imail-summary.scm | 23 +++++++++++------------ 1 file changed, 11 insertions(+), 12 deletions(-) diff --git a/v7/src/imail/imail-summary.scm b/v7/src/imail/imail-summary.scm index 256390307..e0d8f7620 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.29 2000/10/26 05:07:04 cph Exp $ +;;; $Id: imail-summary.scm,v 1.30 2000/10/26 16:41:07 cph Exp $ ;;; ;;; Copyright (c) 2000 Massachusetts Institute of Technology ;;; @@ -156,7 +156,15 @@ SUBJECT is a string of regexps separated by commas." (buffer-put! folder-buffer 'IMAIL-SUMMARY-BUFFER buffer) (associate-buffer-with-imail-buffer folder-buffer buffer) (buffer-put! buffer 'IMAIL-NAVIGATORS - (imail-summary-navigators buffer)))) + (imail-summary-navigators buffer)) + (if (ref-variable imail-summary-fixed-layout buffer) + (create-buffer-layout + (lambda (window buffers) + (let ((buffer (car buffers))) + (select-buffer buffer window) + (imail-summary-pop-up-message-buffer buffer + window))) + (list buffer folder-buffer))))) buffer))))) (buffer-put! buffer 'IMAIL-SUMMARY-DESCRIPTION description) (buffer-put! buffer 'IMAIL-SUMMARY-PREDICATE predicate) @@ -166,16 +174,7 @@ SUBJECT is a string of regexps separated by commas." (select-window (car windows)) (select-buffer buffer)))) (preload-folder-outlines folder) - (rebuild-imail-summary-buffer buffer) - (if (ref-variable imail-summary-fixed-layout buffer) - (begin - (delete-buffer-layout buffer) - (create-buffer-layout - (lambda (window buffers) - (let ((buffer (car buffers))) - (select-buffer buffer window) - (imail-summary-pop-up-message-buffer buffer window))) - (list buffer folder-buffer)))))) + (rebuild-imail-summary-buffer buffer))) (define (imail-summary-detach buffer) (let ((folder-buffer (buffer-get buffer 'IMAIL-FOLDER-BUFFER #f))) -- 2.25.1