DMの場合にviaのみ付加されてしまっていたバグを修正

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

diff --git a/Tween/Tween.vb b/Tween/Tween.vb
index 0ae9bb3..4625540 100644 (file)
--- a/Tween/Tween.vb
+++ b/Tween/Tween.vb
@@ -4449,7 +4449,12 @@ RETRY:
 
         If _curList.SelectedIndices.Count = 0 OrElse _curPost Is Nothing Then Exit Sub
 
-        Dim dTxt As String = createDetailHtml(_curPost.OriginalData + " via " + _curPost.SourceHtml)
+        Dim dTxt As String
+        If _curPost.IsDm Then
+            dTxt = createDetailHtml(_curPost.OriginalData)
+        Else
+            dTxt = createDetailHtml(_curPost.OriginalData + " via " + _curPost.SourceHtml)
+        End If
 
         If _statuses.Tabs(_curTab.Text).TabType = TabUsageType.DirectMessage AndAlso Not _curPost.IsOwl Then
             NameLabel.Text = "DM TO -> "