in_reply_to付与判定修正でQTにin_reply_toが付かなくなったバグ修正

git-svn-id: http://svn.sourceforge.jp/svnroot/tween/trunk@797 e39ad16e-3079-482e-bb30-4b4d378143b6

diff --git a/Tween/Tween.vb b/Tween/Tween.vb
index ce4f8c2..3822fc3 100644 (file)
--- a/Tween/Tween.vb
+++ b/Tween/Tween.vb
@@ -6586,7 +6586,7 @@ RETRY:
                 If StatusText.StartsWith("@" + _reply_to_name) Then Exit Sub
             Else
                 For Each mid As Match In m
-                    If mid.Result("${id}") = "QT @" + _reply_to_name + ": @" Then Exit Sub
+                    If StatusText.Contains("QT " + mid.Result("${id}") + ":") AndAlso mid.Result("${id}") = "@" + _reply_to_name Then Exit Sub
                 Next
             End If
         End If