From 76bff38fc4fa77bed447a6d09a5411db0d4625f5 Mon Sep 17 00:00:00 2001
From: Chris Hanson <org/chris-hanson/cph>
Date: Mon, 1 Oct 2001 16:22:50 +0000
Subject: [PATCH] Leave attachment markers in the output message.  The result
 will be an exact copy of the buffer contents.

---
 v7/src/imail/imail-top.scm | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

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))))))
 
-- 
2.25.1