From 7c44254d7dd8f4936d51d6f61d738587b0942d05 Mon Sep 17 00:00:00 2001
From: mysticbbs <mysticbbs@gmail.com>
Date: Mon, 2 Apr 2012 04:02:29 -0400
Subject: [PATCH] Node message broadcast no longer sends message to the
 originating node

---
 mystic/bbs_nodeinfo.pas | 21 ++++++++++++++-------
 1 file changed, 14 insertions(+), 7 deletions(-)

diff --git a/mystic/bbs_nodeinfo.pas b/mystic/bbs_nodeinfo.pas
index 3a302a6..35fd073 100644
--- a/mystic/bbs_nodeinfo.pas
+++ b/mystic/bbs_nodeinfo.pas
@@ -127,13 +127,13 @@ End;
 
 Procedure Send_Node_Message (MsgType: Byte; Data: String; Room: Byte);
 Var
-  ToNode  : Byte;
-  A, B, C : Byte;
-  Temp    : ChatRec;
-  Str     : String[3];
+  ToNode      : Byte;
+  A, B, C     : Byte;
+  Temp        : ChatRec;
+  Str         : String[3];
   NodeMsgFile : File of NodeMsgRec;
   NodeMsg     : NodeMsgRec;
-
+  SkipCurrent : Boolean = False;
 Begin
   If Data = '' Then Begin
     Repeat
@@ -161,14 +161,20 @@ Begin
     If ToNode = 0 Then Begin
       B := 1;
       C := Config.INetTNNodes;
-      If MsgType = 3 Then MsgType := 2;
+
+      If MsgType = 3 Then Begin
+        MsgType     := 2;
+        SkipCurrent := True;
+      End;
     End Else Begin
       B := ToNode;
       C := ToNode;
     End;
   End;
 
-  For A := B to C Do
+  For A := B to C Do Begin
+    If (A = Session.NodeNum) and SkipCurrent Then Continue;
+
     If GetChatRecord(A, Temp) Then Begin
       If (Not Temp.Active) and (ToNode > 0) Then Begin
         Session.io.OutFullLn (Session.GetPrompt(147));
@@ -211,6 +217,7 @@ Begin
         Close (NodeMsgFile);
       End;
     End;
+  End;
 End;
 
 Function CheckNodeMessages : Boolean;