From: Chris Hanson <org/chris-hanson/cph>
Date: Mon, 1 Oct 2001 16:22:50 +0000 (+0000)
Subject: Leave attachment markers in the output message.  The result will be an
X-Git-Tag: 20090517-FFI~2535
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=76bff38fc4fa77bed447a6d09a5411db0d4625f5;p=mit-scheme.git

Leave attachment markers in the output message.  The result will be an
exact copy of the buffer contents.
---

diff --git a/v7/src/imail/imail-top.scm b/v7/src/imail/imail-top.scm
index 6e307646a..28648d612 100644
--- a/v7/src/imail/imail-top.scm
+++ b/v7/src/imail/imail-top.scm
@@ -1,6 +1,6 @@
 ;;; -*-Scheme-*-
 ;;;
-;;; $Id: imail-top.scm,v 1.274 2001/09/29 03:00:13 cph Exp $
+;;; $Id: imail-top.scm,v 1.275 2001/10/01 16:22:50 cph Exp $
 ;;;
 ;;; Copyright (c) 1999-2001 Massachusetts Institute of Technology
 ;;;
@@ -883,7 +883,7 @@ This command writes the message to the output file in human-readable format,
 		      (insert-chars #\= 79 mark)
 		      (insert-newlines 2 mark))
 		    (set! write-separator? #t))
-		(insert-message message #t 0 mark)))
+		(insert-message message #f 0 mark)))
 	    (mark-temporary! mark))
 	  (append-to-file (buffer-region buffer) pathname #t 'DEFAULT))))))