From e9d42d27cd17cc9a41b2ca56070d2033c9529708 Mon Sep 17 00:00:00 2001
From: Chris Hanson <org/chris-hanson/cph>
Date: Mon, 5 Nov 2001 21:19:37 +0000
Subject: [PATCH] Move URL support back to IMAIL from the runtime system.

---
 v7/src/imail/imail.pkg | 30 +++++++++++++++++++++++++++++-
 1 file changed, 29 insertions(+), 1 deletion(-)

diff --git a/v7/src/imail/imail.pkg b/v7/src/imail/imail.pkg
index dc124a5f3..326052a6b 100644
--- a/v7/src/imail/imail.pkg
+++ b/v7/src/imail/imail.pkg
@@ -1,6 +1,6 @@
 ;;; -*-Scheme-*-
 ;;;
-;;; $Id: imail.pkg,v 1.90 2001/10/10 04:26:26 cph Exp $
+;;; $Id: imail.pkg,v 1.91 2001/11/05 21:19:37 cph Exp $
 ;;;
 ;;; Copyright (c) 2000-2001 Massachusetts Institute of Technology
 ;;;
@@ -26,6 +26,34 @@
 (global-definitions "../edwin/edwinunx")
 (global-definitions "../star-parser/parser")
 
+(define-package (runtime url)
+  (file-case options
+    ((load) "url")
+    (else))
+  (parent ())
+  (export ()
+	  url:char-set:escaped
+	  url:char-set:extra
+	  url:char-set:national
+	  url:char-set:punctuation
+	  url:char-set:reserved
+	  url:char-set:safe
+	  url:char-set:unescaped
+	  url:char-set:unreserved
+	  url:decode-string
+	  url:decode-substring
+	  url:encode-string
+	  url:encode-substring
+	  url:match:escape
+	  url:match:host
+	  url:match:hostname
+	  url:match:hostnumber
+	  url:match:uchar
+	  url:match:xchar
+	  url:parse:hostport
+	  url:string-encoded?
+	  url:substring-encoded?))
+
 (define-package (edwin imail)
   (files "imail-util"
 	 "imail-core")
-- 
2.25.1