OSDN Git Service

#!が含まれているときに#!/ユーザーIDでUser_Timelineが実行されていたのを修正
authorf_swallow <f_swallow@users.sourceforge.jp>
Sat, 1 Jan 2011 03:19:30 +0000 (03:19 +0000)
committerKimura Youichi <kim.upsilon@bucyou.net>
Sat, 18 Feb 2012 14:18:14 +0000 (23:18 +0900)
git-svn-id: http://svn.sourceforge.jp/svnroot/tween/trunk@1300 e39ad16e-3079-482e-bb30-4b4d378143b6

Tween/Tween.vb

index 4761f86..30a82ea 100644 (file)
@@ -3252,12 +3252,13 @@ Public Class TweenMain
                 HashMgr.AddHashToHistory(hash.Trim, False)
                 AddNewTabForSearch(hash)
                 Exit Sub
-            ElseIf e.Url.AbsoluteUri.StartsWith("http://twitter.com/") Then
-                Me.AddNewTabForUserTimeline(e.Url.AbsoluteUri.Remove(0, "http://twitter.com/".Length))
-            ElseIf e.Url.AbsoluteUri.StartsWith("https://twitter.com/") Then
-                Me.AddNewTabForUserTimeline(e.Url.AbsoluteUri.Remove(0, "https://twitter.com/".Length))
             Else
-                OpenUriAsync(e.Url.OriginalString)
+                Dim m As Match = Regex.Match(e.Url.AbsoluteUri, "^https?://twitter.com/(#!/)?(?<name>[a-zA-Z0-9_]+)$")
+                If m.Success AndAlso IsTwitterId(m.Result("${name}")) Then
+                    Me.AddNewTabForUserTimeline(m.Result("${name}"))
+                Else
+                    OpenUriAsync(e.Url.OriginalString)
+                End If
             End If
         End If
     End Sub