From ce968251b472facc50450115e88ed19f30cfc413 Mon Sep 17 00:00:00 2001
From: Chris Hanson <org/chris-hanson/cph>
Date: Sat, 26 May 2001 02:13:40 +0000
Subject: [PATCH] Implement SELECTED-CONTAINER-URL.

---
 v7/src/imail/imail-top.scm | 9 ++++++++-
 1 file changed, 8 insertions(+), 1 deletion(-)

diff --git a/v7/src/imail/imail-top.scm b/v7/src/imail/imail-top.scm
index 698f00d3a..0023a4ca8 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.253 2001/05/26 01:55:10 cph Exp $
+;;; $Id: imail-top.scm,v 1.254 2001/05/26 02:13:40 cph Exp $
 ;;;
 ;;; Copyright (c) 1999-2001 Massachusetts Institute of Technology
 ;;;
@@ -2007,6 +2007,13 @@ Negative argument means search in reverse."
 (define (set-buffer-imail-container! buffer container)
   (buffer-put! buffer 'IMAIL-CONTAINER container))
 
+(define (selected-container-url #!optional error? buffer)
+  (let ((container
+	 (selected-container (if (default-object? error?) #t error?)
+			     (if (default-object? buffer) #f buffer))))
+    (and container
+	 (resource-locator container))))
+
 (define (selected-url-string #!optional error? mark)
   (let ((url
 	 (selected-url (if (default-object? error?) #t error?)
-- 
2.25.1