From 934740882abc1af1d0981241efb73f762b8ee61c Mon Sep 17 00:00:00 2001
From: Chris Hanson <org/chris-hanson/cph>
Date: Sat, 2 Jun 2001 05:43:12 +0000
Subject: [PATCH] Add new procedure PROMPT-FOR-URL.
---
v7/src/imail/imail-top.scm | 5 ++++-
1 file changed, 4 insertions(+), 1 deletion(-)
diff --git a/v7/src/imail/imail-top.scm b/v7/src/imail/imail-top.scm
index 39a6d2ae9..1141dc279 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.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)
--
2.25.1