関連発言取得の際に、ツイートに含まれるツイートのURLを読み込まなくなっていたバグを修正

diff --git a/Tween/Resources/ChangeLog.txt b/Tween/Resources/ChangeLog.txt
index 8d51926..b25433e 100644 (file)
--- a/Tween/Resources/ChangeLog.txt
+++ b/Tween/Resources/ChangeLog.txt
@@ -1,5 +1,7 @@
 更新履歴
 
+==== Ver 1.1.0.0(2011/**/**)
+ * FIX: 関連発言取得の際に、ツイートに含まれるツイートのURLを読み込まなくなっていたバグを修正
 ==== Ver 1.0.9.0(2011/9/29)
  * FIX: アカウントの再認証時に、認証後情報が反映されないバグ修正
  * FIX: t.coと他の短縮URLが混ざると、URLが展開されないバグ修正

diff --git a/Tween/Twitter.vb b/Tween/Twitter.vb
index 8832236..5ebc336 100644 (file)
--- a/Tween/Twitter.vb
+++ b/Tween/Twitter.vb
@@ -2028,7 +2028,7 @@ Public Class Twitter
 
 
         'MRTとかに対応のためツイート内にあるツイートを指すURLを取り込む
-        Dim ma As MatchCollection = Regex.Matches(tab.RelationTargetPost.Text, "href=""https?://twitter.com/(#!/)?(?<ScreenName>[a-zA-Z0-9_]+)(/status(es)?/(?<StatusId>[0-9]+))""")
+        Dim ma As MatchCollection = Regex.Matches(tab.RelationTargetPost.Text, "title=""https?://twitter.com/(#!/)?(?<ScreenName>[a-zA-Z0-9_]+)(/status(es)?/(?<StatusId>[0-9]+))""")
         For Each _match As Match In ma
             Dim _statusId As Int64
             If Int64.TryParse(_match.Groups("StatusId").Value, _statusId) Then