From 05d4e40333cbb9fde8b685756211b9891e5f179b Mon Sep 17 00:00:00 2001
From: Eric Swenson <eric@swenson.org>
Date: Sun, 27 Jan 2019 22:39:46 -0800
Subject: [PATCH] Updated NSMDAT procedure in SYSNET; NETRTS > to comment out
 the call to FINISH when sending SMTP headers or data. This call appears to
 hang, preventing delivery of the message. This fix has been in place on UP
 for a couple years. I've tested it and it does fix the issue. Resolves #1516.

---
 src/sysnet/{netrts.355 => netrts.356} | 2 ++
 1 file changed, 2 insertions(+)
 rename src/sysnet/{netrts.355 => netrts.356} (99%)

diff --git a/src/sysnet/netrts.355 b/src/sysnet/netrts.356
similarity index 99%
rename from src/sysnet/netrts.355
rename to src/sysnet/netrts.356
index 4bbd68e5..179d7989 100644
--- a/src/sysnet/netrts.355
+++ b/src/sysnet/netrts.356
@@ -1773,10 +1773,12 @@ NSMDT5:	D7BPT B			; Back up the BP to period
 	POPAE P,[C,B]
 NSMDT8:	POP P,C
 	OUT(NETO,FRC)		; Ensure buffer forced out
+ifn 0,[	;; [BV] Hangs forever
 	SYSCAL FINISH,[MOVEI NETO]	; Wait for transmission ACK
 	 JRST [	STAT (,("FINISH call failed - "),ERR)
 		MOVEI A,MR$TEH	; Temp err for host.
 		RET]
+]
 	JRST POPJ1
 
 ; NSMDON - Terminate SMTP message transaction, see if it won or not.