Require MD5 availability to support encryption.

diff --git a/v7/src/edwin/fileio.scm b/v7/src/edwin/fileio.scm
index dae233af524ac1b6e0c9d7f9767701daf24e6f81..0a7732e7d1d132cc5db2bb993b7b94b0fab533c4 100644 (file)
--- a/v7/src/edwin/fileio.scm
+++ b/v7/src/edwin/fileio.scm
@@ -1,6 +1,6 @@
 ;;; -*-Scheme-*-
 ;;;
-;;; $Id: fileio.scm,v 1.157 2002/02/25 18:53:02 cph Exp $
+;;; $Id: fileio.scm,v 1.158 2002/06/28 18:20:19 cph Exp $
 ;;;
 ;;; Copyright (c) 1986, 1989-2002 Massachusetts Institute of Technology
 ;;;
@@ -35,6 +35,7 @@ filename suffix \".bf\"."
 (define ((read/write-encrypted-file? write?) group pathname)
   (and (ref-variable enable-encrypted-files group)
        (equal? "bf" (pathname-type pathname))
+       (md5-available?)
        (blowfish-available?)
        (or write? (blowfish-file? pathname))
        #t))

diff --git a/v7/src/edwin/make.scm b/v7/src/edwin/make.scm
index b73ce30bfd7953e086b51e72e3e3a1db8a3f152d..cae2cab371aa1984a6d5f2762ede3be1b197ea51 100644 (file)
--- a/v7/src/edwin/make.scm
+++ b/v7/src/edwin/make.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: make.scm,v 3.114 2002/02/03 04:31:55 cph Exp $
+$Id: make.scm,v 3.115 2002/06/28 18:20:35 cph Exp $
 
 Copyright (c) 1989-2002 Massachusetts Institute of Technology
 
@@ -36,4 +36,4 @@ Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA
        (load-package-set "edwin"
         `((alternate-package-loader
            . ,(load "edwin.bld" system-global-environment))))))))
-(add-identification! "Edwin" 3 112)
\ No newline at end of file
+(add-identification! "Edwin" 3 113)
\ No newline at end of file