Change output procedures to ignore translate-file-data-on-output in

some circumstances.  This is necessary because RMAIL files want this
variable set to #F, but M-x write-region should ignore the variable
binding in that case and do translation anyway.

diff --git a/v7/src/edwin/fileio.scm b/v7/src/edwin/fileio.scm
index 234346618e51a778d95cd56768d85bffdbfebccd..600690f4cae8aa34a95dcd379ee7da569d5330eb 100644 (file)
--- a/v7/src/edwin/fileio.scm
+++ b/v7/src/edwin/fileio.scm
@@ -1,6 +1,6 @@
 ;;; -*-Scheme-*-
 ;;;
-;;;    $Id: fileio.scm,v 1.140 1997/01/03 04:06:32 cph Exp $
+;;;    $Id: fileio.scm,v 1.141 1997/01/03 04:40:03 cph Exp $
 ;;;
 ;;;    Copyright (c) 1986, 1989-96 Massachusetts Institute of Technology
 ;;;
@@ -576,7 +576,7 @@ Otherwise, a message is written both before and after long file writes."
          (get-pathname-or-alternate (region-group region) pathname #t))
         (translate?
          (if (eq? 'DEFAULT translate?)
-             (ref-variable translate-file-data-on-output buffer)
+             (ref-variable translate-file-data-on-output group)
              translate?))
         (translation (and translate? (pathname-newline-translation pathname)))
         (filename (->namestring pathname))