From 6ae941a6193b15e5410ede7ac67150987d3c2bd1 Mon Sep 17 00:00:00 2001
From: Chris Hanson <org/chris-hanson/cph>
Date: Sat, 16 Jan 1999 06:32:51 +0000
Subject: [PATCH] Fix bug from last change: don't check file header when
 writing encrypted file, because the file might not exist.

---
 v7/src/edwin/dosfile.scm | 10 +++++-----
 1 file changed, 5 insertions(+), 5 deletions(-)

diff --git a/v7/src/edwin/dosfile.scm b/v7/src/edwin/dosfile.scm
index 8c9d2789a..8f3738db3 100644
--- a/v7/src/edwin/dosfile.scm
+++ b/v7/src/edwin/dosfile.scm
@@ -1,6 +1,6 @@
 ;;; -*-Scheme-*-
 ;;;
-;;; $Id: dosfile.scm,v 1.24 1999/01/14 18:37:44 cph Exp $
+;;; $Id: dosfile.scm,v 1.25 1999/01/16 06:32:51 cph Exp $
 ;;;
 ;;; Copyright (c) 1994-1999 Massachusetts Institute of Technology
 ;;;
@@ -572,7 +572,7 @@ Switches may be concatenated, e.g. `-lt' is equivalent to `-l -t'."
      . ,(lambda (pathname mark visit?)
 	  visit?
 	  (read-compressed-file "gzip -d" pathname mark)))
-    (,read/write-encrypted-file?
+    (,(read/write-encrypted-file? #f)
      . ,(lambda (pathname mark visit?)
 	  visit?
 	  (read-encrypted-file pathname mark)))))
@@ -582,7 +582,7 @@ Switches may be concatenated, e.g. `-lt' is equivalent to `-l -t'."
      . ,(lambda (region pathname visit?)
 	  visit?
 	  (write-compressed-file "gzip" region pathname)))
-    (,read/write-encrypted-file?
+    (,(read/write-encrypted-file? #t)
      . ,(lambda (region pathname visit?)
 	  visit?
 	  (write-encrypted-file region pathname)))))
@@ -671,11 +671,11 @@ filename suffixes \".bf\" and \".ky\"."
   #t
   boolean?)
 
-(define (read/write-encrypted-file? group pathname)
+(define ((read/write-encrypted-file? write?) group pathname)
   (and (ref-variable enable-encrypted-files group)
        (or (and (equal? "bf" (pathname-type pathname))
 		(blowfish-available?)
-		(blowfish-file? pathname))
+		(or write? (blowfish-file? pathname)))
 	   (equal? "ky" (pathname-type pathname)))))
 
 (define (read-encrypted-file pathname mark)
-- 
2.25.1