Ctrl + E でURLを開く際に、ポストを示すURLがユーザーページのURLとして開かれてしまうのを修正

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

diff --git a/Tween/Tween.vb b/Tween/Tween.vb
index 61754e4..f159a51 100644 (file)
--- a/Tween/Tween.vb
+++ b/Tween/Tween.vb
@@ -7134,11 +7134,13 @@ RETRY:
                 HashMgr.AddHashToHistory(hash.Trim, False)
                 AddNewTabForSearch(hash)
                 Exit Sub
-            ElseIf openUrlStr.StartsWith("http://twitter.com/") Then
-                Me.AddNewTabForUserTimeline(openUrlStr.Remove(0, "http://twitter.com/".Length))
-                Exit Sub
-            ElseIf openUrlStr.StartsWith("https://twitter.com/") Then
-                Me.AddNewTabForUserTimeline(openUrlStr.Remove(0, "https://twitter.com/".Length))
+            Else
+                Dim m As Match = Regex.Match(openUrlStr, "^https?://twitter.com/(#!/)?(?<name>[a-zA-Z0-9_]+)$")
+                If SettingDialog.OpenUserTimeline AndAlso m.Success AndAlso IsTwitterId(m.Result("${name}")) Then
+                    Me.AddNewTabForUserTimeline(m.Result("${name}"))
+                Else
+                    OpenUriAsync(openUrlStr)
+                End If
                 Exit Sub
             End If