From: Chris Hanson <org/chris-hanson/cph>
Date: Fri, 14 Jan 2000 18:08:08 +0000 (+0000)
Subject: Don't do newline translation on RMAIL or unix mail files.
X-Git-Tag: 20090517-FFI~4345
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=4f8c1e2ac12183c92092330956efa9988cd74f1c;p=mit-scheme.git

Don't do newline translation on RMAIL or unix mail files.
---

diff --git a/v7/src/imail/imail-rmail.scm b/v7/src/imail/imail-rmail.scm
index 6d6d7242d..1d04ef4b5 100644
--- a/v7/src/imail/imail-rmail.scm
+++ b/v7/src/imail/imail-rmail.scm
@@ -1,6 +1,6 @@
 ;;; -*-Scheme-*-
 ;;;
-;;; $Id: imail-rmail.scm,v 1.4 2000/01/14 17:03:57 cph Exp $
+;;; $Id: imail-rmail.scm,v 1.5 2000/01/14 18:07:45 cph Exp $
 ;;;
 ;;; Copyright (c) 1999-2000 Massachusetts Institute of Technology
 ;;;
@@ -95,7 +95,7 @@
 ;;;; Read RMAIL file
 
 (define (read-rmail-file pathname import?)
-  (call-with-input-file pathname
+  (call-with-binary-input-file pathname
     (lambda (port)
       (read-rmail-folder (make-rmail-url pathname) port import?))))
 
@@ -197,7 +197,7 @@
 
 (define (write-rmail-file folder pathname export?)
   ;; **** Do backup of file here.
-  (call-with-output-file pathname
+  (call-with-binary-output-file pathname
     (lambda (port)
       (write-rmail-folder folder port export?))))
 
diff --git a/v7/src/imail/imail-umail.scm b/v7/src/imail/imail-umail.scm
index b08446639..8d84eb3df 100644
--- a/v7/src/imail/imail-umail.scm
+++ b/v7/src/imail/imail-umail.scm
@@ -1,8 +1,8 @@
 ;;; -*-Scheme-*-
 ;;;
-;;; $Id: imail-umail.scm,v 1.4 2000/01/14 06:41:34 cph Exp $
+;;; $Id: imail-umail.scm,v 1.5 2000/01/14 18:08:08 cph Exp $
 ;;;
-;;; Copyright (c) 1999 Massachusetts Institute of Technology
+;;; Copyright (c) 1999-2000 Massachusetts Institute of Technology
 ;;;
 ;;; This program is free software; you can redistribute it and/or
 ;;; modify it under the terms of the GNU General Public License as
@@ -59,7 +59,7 @@
 ;;;; Read unix mail file
 
 (define (read-umail-file pathname import?)
-  (call-with-input-file pathname
+  (call-with-binary-input-file pathname
     (lambda (port)
       (read-umail-folder (make-umail-url pathname) port import?))))
 
@@ -128,7 +128,7 @@
 
 (define (write-umail-file folder pathname export?)
   ;; **** Do backup of file here.
-  (call-with-output-file pathname
+  (call-with-binary-output-file pathname
     (lambda (port)
       (write-umail-folder folder port export?))))