From 56975da96bc452ebeaa0a71b683c099ee23d5218 Mon Sep 17 00:00:00 2001
From: Chris Hanson <org/chris-hanson/cph>
Date: Mon, 5 Nov 2001 21:32:44 +0000
Subject: [PATCH] Make sure *PARSER is loaded for IMAIL.  It's not necessary to
 load it just for the URL file.

---
 v7/src/imail/load.scm | 3 ++-
 v7/src/imail/url.scm  | 3 +--
 2 files changed, 3 insertions(+), 3 deletions(-)

diff --git a/v7/src/imail/load.scm b/v7/src/imail/load.scm
index f1162cf29..0029a8428 100644
--- a/v7/src/imail/load.scm
+++ b/v7/src/imail/load.scm
@@ -1,6 +1,6 @@
 ;;; -*-Scheme-*-
 ;;;
-;;; $Id: load.scm,v 1.34 2001/11/05 21:21:16 cph Exp $
+;;; $Id: load.scm,v 1.35 2001/11/05 21:32:44 cph Exp $
 ;;;
 ;;; Copyright (c) 1999-2001 Massachusetts Institute of Technology
 ;;;
@@ -24,6 +24,7 @@
 (load-option 'HASH-TABLE)
 (load-option 'REGULAR-EXPRESSION)
 (load-option 'SOS)
+(load-option '*PARSER)
 (with-working-directory-pathname (directory-pathname (current-load-pathname))
   (lambda ()
     (fluid-let ((*allow-package-redefinition?* #t))
diff --git a/v7/src/imail/url.scm b/v7/src/imail/url.scm
index 6dd5968ce..555a57241 100644
--- a/v7/src/imail/url.scm
+++ b/v7/src/imail/url.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: url.scm,v 1.10 2001/11/05 21:05:56 cph Exp $
+$Id: url.scm,v 1.11 2001/11/05 21:32:40 cph Exp $
 
 Copyright (c) 2000, 2001 Massachusetts Institute of Technology
 
@@ -23,7 +23,6 @@ USA.
 ;;;; URL Encoding
 
 (declare (usual-integrations))
-(load-option '*PARSER)
 
 (define url:char-set:safe (string->char-set "$-_.+"))
 (define url:char-set:extra (string->char-set "!*'(),"))
-- 
2.25.1