From: Chris Hanson <org/chris-hanson/cph>
Date: Wed, 15 Jan 1997 07:09:05 +0000 (+0000)
Subject: Fix call to APPEND-TO-FILE that should have been patched in the
X-Git-Tag: 20090517-FFI~5266
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=8e7fccc55a2b6c48b59bc6d772fed9f5caa0d94d;p=mit-scheme.git

Fix call to APPEND-TO-FILE that should have been patched in the
previous change.
---

diff --git a/v7/src/edwin/rmail.scm b/v7/src/edwin/rmail.scm
index d2557a1df..003231f8e 100644
--- a/v7/src/edwin/rmail.scm
+++ b/v7/src/edwin/rmail.scm
@@ -1,6 +1,6 @@
 ;;; -*-Scheme-*-
 ;;;
-;;;	$Id: rmail.scm,v 1.55 1997/01/03 04:06:53 cph Exp $
+;;;	$Id: rmail.scm,v 1.56 1997/01/15 07:09:05 cph Exp $
 ;;;
 ;;;	Copyright (c) 1991-97 Massachusetts Institute of Technology
 ;;;
@@ -1605,7 +1605,7 @@ buffer visiting that file."
     (define-variable-local-value! buffer
       (ref-variable-object translate-file-data-on-output)
       #f)
-    (append-to-file (buffer-region buffer) pathname #f)
+    (append-to-file (buffer-region buffer) pathname #f #f)
     (kill-buffer buffer)))
 
 (define (prompt-for-rmail-output-filename prompt default)