Make sure *PARSER is loaded for IMAIL. It's not necessary to load it

just for the URL file.

diff --git a/v7/src/imail/load.scm b/v7/src/imail/load.scm
index f1162cf299695a05fc2f5586d705e86f7b9d9489..0029a84289565f3b10b7ccc14a95fe59db748501 100644 (file)
--- 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 6dd5968ce5298e880afd7706c5b29c663af9e2f3..555a572412ba6be38fb20219b4a0bbfcebc78471 100644 (file)
--- 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)
 \f
 (define url:char-set:safe (string->char-set "$-_.+"))
 (define url:char-set:extra (string->char-set "!*'(),"))