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 6d6d7242d5f1def183bec93d06c750dbc01a8d00..1d04ef4b5a1eb018e8d4747c91663db6e85625ad 100644 (file)
--- 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 b084466390d5188fb12d5766f26a61045146a813..8d84eb3df19f4f85d35cff80020a09525b12e857 100644 (file)
--- 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?))))