From: Chris Hanson <org/chris-hanson/cph>
Date: Thu, 13 Apr 2000 16:42:16 +0000 (+0000)
Subject: Change rexp compiler to be case sensitive, and add REXP-CASE-FOLD to
X-Git-Tag: 20090517-FFI~4031
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=539019e85ac4691ce36071e6cc00967d51dfb916;p=mit-scheme.git

Change rexp compiler to be case sensitive, and add REXP-CASE-FOLD to
delimit regions that should be case insensitive.
---

diff --git a/v7/src/imail/imail-imap-url.scm b/v7/src/imail/imail-imap-url.scm
index 069e4fd81..8292b60a1 100644
--- a/v7/src/imail/imail-imap-url.scm
+++ b/v7/src/imail/imail-imap-url.scm
@@ -1,6 +1,6 @@
 ;;; -*-Scheme-*-
 ;;;
-;;; $Id: imail-imap-url.scm,v 1.3 2000/04/13 16:40:23 cph Exp $
+;;; $Id: imail-imap-url.scm,v 1.4 2000/04/13 16:42:16 cph Exp $
 ;;;
 ;;; Copyright (c) 2000 Massachusetts Institute of Technology
 ;;;
@@ -183,7 +183,8 @@
 (define imap:rexp:enc-user imap:rexp:achar+)
 
 (define imap:rexp:iauth
-  (rexp-sequence ";AUTH=" (regexp-alternatives "*" imap:rexp:enc-auth-type)))
+  (rexp-sequence (rexp-case-fold ";AUTH=")
+		 (rexp-alternatives "*" imap:rexp:enc-auth-type)))
 
 (define imap:rexp:iuserauth
   (rexp-alternatives (rexp-sequence imap:rexp:enc-user
@@ -197,18 +198,18 @@
 
 (define imap:rexp:imailboxlist
   (rexp-sequence (rexp-optional imap:rexp:enc-list-mailbox)
-		 ";TYPE="
-		 (rexp-alternatives "LIST" "LSUB")))
+		 (rexp-case-fold ";TYPE=")
+		 (rexp-case-fold (rexp-alternatives "LIST" "LSUB"))))
 
 (define imap:rexp:nz-number
   (rexp-sequence (char-set-difference char-set:numeric (char-set #\0))
 		 (rexp* char-set:numeric)))
 
 (define imap:rexp:uidvalidity
-  (rexp-sequence ";UIDVALIDITY=" imap:rexp:nz-number))
+  (rexp-sequence (rexp-case-fold ";UIDVALIDITY=") imap:rexp:nz-number))
 
 (define imap:rexp:iuid
-  (rexp-sequence ";UID=" imap:rexp:nz-number))
+  (rexp-sequence (rexp-case-fold ";UID=") imap:rexp:nz-number))
 
 (define imap:rexp:imessagelist
   (rexp-sequence imap:rexp:enc-mailbox
@@ -220,5 +221,6 @@
 		 (rexp-optional imap:rexp:uidvalidity)
 		 imap:rexp:iuid
 		 (rexp-optional
-		  (rexp-sequence "/;SECTION=" imap:rexp:enc-section))))
+		  (rexp-sequence (rexp-case-fold "/;SECTION=")
+				 imap:rexp:enc-section))))
 		 
\ No newline at end of file