From bf6d2a9ad28deb74b26e0955c56f324f8fcd2002 Mon Sep 17 00:00:00 2001
From: Eric Swenson <eric@swenson.org>
Date: Sat, 23 Feb 2019 13:23:36 -0800
Subject: [PATCH] Updated PWORD to not add an MIT- prefix to machine names in
 emails.

---
 src/sysen1/{pword.2661 => pword.2662} | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)
 rename src/sysen1/{pword.2661 => pword.2662} (99%)

diff --git a/src/sysen1/pword.2661 b/src/sysen1/pword.2662
similarity index 99%
rename from src/sysen1/pword.2661
rename to src/sysen1/pword.2662
index b996c160..b90c23ed 100644
--- a/src/sysen1/pword.2661
+++ b/src/sysen1/pword.2662
@@ -8431,7 +8431,7 @@ sndltp:	-10,,snddsc		   ; Just header
 
 snddsc: 440700,,[asciz /[Message from /]
 	tp$6bt runame
-	440700,,[asciz / at MIT-/]
+	440700,,[asciz / at /]
 	tp$6bt machin
 	440700,,[asciz /  /]
 	tp$6bt a
@@ -9601,7 +9601,7 @@ ife $$pand,[
 	hrrzs t			   ; flush the op-code part
 	cain t,telmal		   ; Is this notification mail?
 	  jrst [ 
-	       type dsko,/ MIT-/
+	       type dsko,/ /
 	       6type dsko,machin   ; tell where to send it
 	       type dsko,/ (R-HEADER-FORCE NULL)/  ; force into RFC733 format
 	       jrst .+1]
@@ -9662,10 +9662,10 @@ From: /				   ; now for the FROM: field
 	setom mdlflg
 	typout dsko,[tp$6bt uname]  ; tell the UNAME involved
 	setzm mdlflg
-	type dsko,/ at MIT-/
+	type dsko,/ at /
 	6type dsko,machin	   ; tell where
 	type dsko,/>
-To: USER-ACCOUNTS at MIT-/
+To: USER-ACCOUNTS at /
 	6type dsko,machin 	   ; tell where
 	type dsko,/
 /