From 886b8f7dd1c7fd34cd353a5afdc8a74d081e980b Mon Sep 17 00:00:00 2001
From: mainzelm <mainzelm>
Date: Wed, 25 Jun 2003 07:49:54 +0000
Subject: [PATCH] Made uri-escaped-chars the complement of alphanum | mark.

---
 scheme/lib/uri.scm | 6 ++++--
 1 file changed, 4 insertions(+), 2 deletions(-)

diff --git a/scheme/lib/uri.scm b/scheme/lib/uri.scm
index bc796d1..643573d 100644
--- a/scheme/lib/uri.scm
+++ b/scheme/lib/uri.scm
@@ -116,8 +116,10 @@
 ;;; slashes and colons would be escaped.
 
 (define uri-escaped-chars
-  (char-set-complement (char-set-union char-set:letter+digit
-				       (string->char-set "$-_@.&!*\"'(),+"))))
+  (char-set-complement 
+   ;; RFC 2396 (URI Generic Syntax) specifies unreserved = alphanum | mark
+   (char-set-union char-set:letter+digit
+                   (string->char-set "-_.!~*'()"))))
 
 ;;; Takes a set of chars to escape. This is because we sometimes need to
 ;;; escape larger sets of chars for different parts of a URI.