140文字オーバーの投稿で、URL自動短縮オフの時、短縮を選んでも機能しないバグ修正

ht.ly展開に対応

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

diff --git a/Tween/Tween.vb b/Tween/Tween.vb
index 75d735e..9ffa72f 100644 (file)
--- a/Tween/Tween.vb
+++ b/Tween/Tween.vb
@@ -1709,13 +1709,13 @@ Public Class TweenMain
         _history(_history.Count - 1) = StatusText.Text.Trim
 
         If SettingDialog.UrlConvertAuto Then
-            StatusText.SelectionStart = StatusText.Text.Length - 1
+            StatusText.SelectionStart = StatusText.Text.Length
             UrlConvertAutoToolStripMenuItem_Click(Nothing, Nothing)
         ElseIf SettingDialog.Nicoms Then
-            StatusText.SelectionStart = StatusText.Text.Length - 1
+            StatusText.SelectionStart = StatusText.Text.Length
             UrlConvert(UrlConverter.Nicoms)
         End If
-        StatusText.SelectionStart = StatusText.Text.Length - 1
+        StatusText.SelectionStart = StatusText.Text.Length
         Dim args As New GetWorkerArg()
         args.page = 0
         args.endPage = 0

diff --git a/Tween/Twitter.vb b/Tween/Twitter.vb
index f34f8ea..4ca292c 100644 (file)
--- a/Tween/Twitter.vb
+++ b/Tween/Twitter.vb
@@ -135,6 +135,7 @@ Public Class Twitter
             "http://youtu.be/", _
             "http://dlvr.it/", _
             "http://p.tl/", _
+            "http://ht.ly/", _
             "http://flic.kr/" _
         }