From bcf46293ef74b911f50d8abef5024281cff6ada4 Mon Sep 17 00:00:00 2001
From: Chris Hanson <org/chris-hanson/cph>
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