From 22a06aac39604c1702f98f31f54ab15b247d7949 Mon Sep 17 00:00:00 2001
From: mysticbbs <mysticbbs@gmail.com>
Date: Thu, 24 Jan 2013 10:26:35 -0500
Subject: [PATCH] Fix /ADDR option on MP menu command

---
 mystic/bbs_msgbase.pas | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

diff --git a/mystic/bbs_msgbase.pas b/mystic/bbs_msgbase.pas
index 2e70ba3..06dcc25 100644
--- a/mystic/bbs_msgbase.pas
+++ b/mystic/bbs_msgbase.pas
@@ -2517,8 +2517,11 @@ Begin
     If Pos ('/SUBJ:', strUpper(TempStr)) > 0 Then
       MsgSubj := strReplace(Copy(TempStr, Pos('/SUBJ:', strUpper(TempStr)) + 6, Length(TempStr)), '_', ' ')
     Else
-    If Pos('/ADDR:', strUpper(TempStr)) > 0 Then
+    If Pos('/ADDR:', strUpper(TempStr)) > 0 Then Begin
       MsgAddr := strReplace(Copy(TempStr, Pos('/ADDR:', strUpper(TempStr)) + 6, Length(TempStr)), '_', ' ');
+
+      If Not strStr2Addr(MsgAddr, DestAddr) Then MsgAddr := '';
+    End;
   End;
 
   If MBase.NetType = 2 Then           { UseNet Base: To = "All" }