svnno****@sourc*****
svnno****@sourc*****
2010年 12月 8日 (水) 15:05:27 JST
Revision: 1176
http://sourceforge.jp/projects/tween/svn/view?view=rev&revision=1176
Author: f_swallow
Date: 2010-12-08 15:05:27 +0900 (Wed, 08 Dec 2010)
Log Message:
-----------
ステータスURLでstatusesの場合にも対応
Modified Paths:
--------------
trunk/Tween/Tween.vb
-------------- next part --------------
Modified: trunk/Tween/Tween.vb
===================================================================
--- trunk/Tween/Tween.vb 2010-12-07 10:11:54 UTC (rev 1175)
+++ trunk/Tween/Tween.vb 2010-12-08 06:05:27 UTC (rev 1176)
@@ -8772,12 +8772,12 @@
If m.Success AndAlso IsTwitterId(m.Result("${name}")) Then
Return m.Result("${name}")
Else
- Dim ma As Match = Regex.Match(Me._postBrowserStatusText, "^https?://twitter.com/(#!/)?(?<name>[a-zA-Z0-9_]+)(/status/[0-9]+)$")
+ Dim ma As Match = Regex.Match(Me._postBrowserStatusText, "^https?://twitter.com/(#!/)?(?<name>[a-zA-Z0-9_]+)(/(status|statuses)/[0-9]+)$")
If ma.Success AndAlso IsTwitterId(ma.Result("${name}")) Then
Return ma.Result("${name}")
End If
Return Nothing
- End If
+ End If
End Function
Private Sub FollowContextMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles FollowContextMenuItem.Click