From: Chris Hanson <org/chris-hanson/cph>
Date: Sat, 26 May 2001 02:51:06 +0000 (+0000)
Subject: Change IMAIL-DEFAULT-CONTAINER to use selected URL if any.  This sets
X-Git-Tag: 20090517-FFI~2779
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=ae549d76fe7709ae993f10312e24742331d4d3e0;p=mit-scheme.git

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 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)