Change IMAIL-DEFAULT-CONTAINER to use selected URL if any. This sets

default correctly in the folder browser when point is inside an
expanded subfolder.

diff --git a/v7/src/imail/imail-top.scm b/v7/src/imail/imail-top.scm
index 0023a4ca85d0e14bcefd7eddc6b4a462a8364c82..60263a5d096a3079609712a11c860915338f73e0 100644 (file)
--- a/v7/src/imail/imail-top.scm
+++ b/v7/src/imail/imail-top.scm
@@ -1,6 +1,6 @@
 ;;; -*-Scheme-*-
 ;;;
-;;; $Id: imail-top.scm,v 1.254 2001/05/26 02:13:40 cph Exp $
+;;; $Id: imail-top.scm,v 1.255 2001/05/26 02:51:06 cph Exp $
 ;;;
 ;;; Copyright (c) 1999-2001 Massachusetts Institute of Technology
 ;;;
@@ -1633,10 +1633,13 @@ Negative argument means search in reverse."
        (else (error:bad-range-argument protocol))))
 
 (define (imail-default-container)
-  (let ((container (selected-container #f)))
-    (if container
-       (resource-locator container)
-       (container-url-for-prompt (imail-default-url #f)))))
+  (let ((url (selected-url #f)))
+    (if url
+       (container-url url)
+       (let ((container (selected-container #f)))
+         (if container
+             (resource-locator container)
+             (container-url-for-prompt (imail-default-url #f)))))))
 \f
 (define (maybe-prompt-for-folder prompt . options)
   (or (selected-url-string #f)