140文字オーバーでの末尾カットで、最後が＠IDっぽかったら投稿しないように変更

[opentween/open-tween.git] / Tween / Tween.vb

diff --git a/Tween/Tween.vb b/Tween/Tween.vb
index 8642f17..dbd240b 100644 (file)
--- a/Tween/Tween.vb
+++ b/Tween/Tween.vb
@@ -1698,6 +1698,10 @@ Public Class TweenMain
 
         If isCutOff AndAlso args.status.status.Length > 140 Then
             args.status.status = args.status.status.Substring(0, 140)
+            If Regex.IsMatch(args.status.status, "@[a-zA-Z0-9_/]+$", RegexOptions.IgnoreCase) Then
+                MessageBox.Show(My.Resources.PostLengthOverMessage3 + Environment.NewLine + Environment.NewLine + args.status.status, "Abort", MessageBoxButtons.OK)
+                Exit Sub
+            End If
             If MessageBox.Show(args.status.status, "Post or Cancel?", MessageBoxButtons.OKCancel, MessageBoxIcon.Question) = Windows.Forms.DialogResult.Cancel Then Exit Sub
         End If