Fix call to APPEND-TO-FILE that should have been patched in the
authorChris Hanson <org/chris-hanson/cph>
Wed, 15 Jan 1997 07:09:05 +0000 (07:09 +0000)
committerChris Hanson <org/chris-hanson/cph>
Wed, 15 Jan 1997 07:09:05 +0000 (07:09 +0000)
previous change.

v7/src/edwin/rmail.scm

index d2557a1dfa363c329b3c7b2cb6bd9c2417657b17..003231f8e1548277c977440f87acf66c3d5bf213 100644 (file)
@@ -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)