DELETEイベント処理微修正

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

diff --git a/Tween/Twitter.vb b/Tween/Twitter.vb
index cf443fb..c6dd0e2 100644 (file)
--- a/Tween/Twitter.vb
+++ b/Tween/Twitter.vb
@@ -2870,7 +2870,7 @@ Public Class Twitter
                 evt.Event = "DELETE(Post)"
             End If
             evt.Username = post.Name
-            evt.Target = If(post.Data.Length > 5, post.Data.Substring(0, 5) + "...", post.Data) + " [" + post.PDate.ToString + "]"
+            evt.Target = If(post.Data.Length > 10, post.Data.Substring(0, 10) + "...", post.Data) + " [" + post.PDate.ToString + "]"
         End If
         For i As Integer = Me.StoredEvent.Count - 1 To 0 Step -1
             Dim sEvt As FormattedEvent = Me.StoredEvent(i)