From ae549d76fe7709ae993f10312e24742331d4d3e0 Mon Sep 17 00:00:00 2001
From: Chris Hanson <org/chris-hanson/cph>
Date: Sat, 26 May 2001 02:51:06 +0000
Subject: [PATCH] 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.

---
 v7/src/imail/imail-top.scm | 13 ++++++++-----
 1 file changed, 8 insertions(+), 5 deletions(-)

diff --git a/v7/src/imail/imail-top.scm b/v7/src/imail/imail-top.scm
index 0023a4ca8..60263a5d0 100644
--- 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)))))))
 
 (define (maybe-prompt-for-folder prompt . options)
   (or (selected-url-string #f)
-- 
2.25.1