Move URL support back to IMAIL from the runtime system.

diff --git a/v7/src/imail/imail.pkg b/v7/src/imail/imail.pkg
index dc124a5f3b65b64bf2ba9b45b215b7aa0967c428..326052a6bc61a88da85b7f0410c28f0d0931247b 100644 (file)
--- 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")