Add new procedure PROMPT-FOR-URL.

diff --git a/v7/src/imail/imail-top.scm b/v7/src/imail/imail-top.scm
index 39a6d2ae95c9aba6247b0c176c5eb7a9118d803f..1141dc279d54b22af5986fdaf675723fa5752883 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.259 2001/05/31 19:58:40 cph Exp $
+;;; $Id: imail-top.scm,v 1.260 2001/06/02 05:43:12 cph Exp $
 ;;;
 ;;; Copyright (c) 1999-2001 Massachusetts Institute of Technology
 ;;;
@@ -1654,6 +1654,9 @@ Negative argument means search in reverse."
   (or (selected-url-string #f)
       (apply prompt-for-container prompt #f options)))
 
+(define (prompt-for-url prompt default . options)
+  (%prompt-for-url prompt default options url-exists?))
+
 (define (prompt-for-folder prompt default . options)
   (%prompt-for-url prompt default options
                   (lambda (url)