From a7df249de91023fb56e549c4ecb9e1a64b6d0530 Mon Sep 17 00:00:00 2001
From: Chris Hanson <org/chris-hanson/cph>
Date: Tue, 23 May 1995 11:37:56 +0000
Subject: [PATCH] Fix bug: "sender" field was being inserted in such a way that
 it was not part of the message header.

---
 v7/src/edwin/sendmail.scm | 7 ++++---
 1 file changed, 4 insertions(+), 3 deletions(-)

diff --git a/v7/src/edwin/sendmail.scm b/v7/src/edwin/sendmail.scm
index c3a41a03d..9111bb133 100644
--- a/v7/src/edwin/sendmail.scm
+++ b/v7/src/edwin/sendmail.scm
@@ -1,6 +1,6 @@
 ;;; -*-Scheme-*-
 ;;;
-;;;	$Id: sendmail.scm,v 1.31 1995/05/10 20:48:39 cph Exp $
+;;;	$Id: sendmail.scm,v 1.32 1995/05/23 11:37:56 cph Exp $
 ;;;
 ;;;	Copyright (c) 1991-95 Massachusetts Institute of Technology
 ;;;
@@ -579,8 +579,9 @@ the user from the mailer."
 	(if (and (re-search-forward "^From:" start header-end #t)
 		 (not (re-search-forward "^Sender:" start header-end #t)))
 	    (begin
-	      (insert-string "\nSender: " header-end)
-	      (insert-string (current-user-name) header-end)))
+	      (insert-string "Sender: " header-end)
+	      (insert-string (current-user-name) header-end)
+	      (insert-string "\n" header-end)))
 	(process-header start header-end)
 	(mark-temporary! header-end))
       (mark-temporary! end)
-- 
2.25.1