From: Chris Hanson <org/chris-hanson/cph>
Date: Fri, 28 Jul 2000 15:25:50 +0000 (+0000)
Subject: Change POP-UP-BUFFER in several ways: (1) SELECT? argument is now
X-Git-Tag: 20090517-FFI~3310
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=f6b67ba023c41f2edc9893e0a3e2dc96a392b4fe;p=mit-scheme.git

Change POP-UP-BUFFER in several ways: (1) SELECT? argument is now
required; (2) optional argument NOT-CURRENT-WINDOW? has been replaced
by a list of option symbols; (3) when popping into an existing window,
if it's the previously popped-up window, it's returned.
---

diff --git a/v7/src/imail/imail-summary.scm b/v7/src/imail/imail-summary.scm
index 414f54140..a2469aa06 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.23 2000/06/20 19:38:32 cph Exp $
+;;; $Id: imail-summary.scm,v 1.24 2000/07/28 15:25:50 cph Exp $
 ;;;
 ;;; Copyright (c) 2000 Massachusetts Institute of Technology
 ;;;
@@ -454,7 +454,7 @@ 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))))
+	(pop-up-buffer folder-buffer #f))))
 
 (define (sync-imail-summary-buffer buffer)
   (let ((message