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 414f541400513be40a361883a7e8624989162eed..a2469aa06b402b625238be2767d3c8e0a3ea10d4 100644 (file)
--- 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