* Web仕様変更対応（Sourceのみ）

 * 投稿リトライで、遅延判定時はリトライしないように変更
 * @user/lists形式の検出正規表現を修正
 * ハッシュタグの検出正規表現を修正

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

diff --git a/Tween/Resources/ChangeLog.txt b/Tween/Resources/ChangeLog.txt
index b363222..cc01da8 100644 (file)
--- a/Tween/Resources/ChangeLog.txt
+++ b/Tween/Resources/ChangeLog.txt
@@ -3,6 +3,10 @@
 ==== Ver 0.7.7.0(Unreleased)
  * バージョンアップの確認ダイアログをキャンセルして、再度確認して表示する際に例外が発生するバグ修正
  * バージョンアップの確認ダイアログに更新内容を表示するように変更
+ * Web仕様変更対応（Sourceのみ）
+ * 投稿リトライで、遅延判定時はリトライしないように変更
+ * @user/lists形式の検出正規表現を修正
+ * ハッシュタグの検出正規表現を修正
 ==== Ver 0.7.6.0(2009/11/11)
  * タブの作成、タブ名の変更で例外が発生するバグ修正
  * 取得間隔に0を指定しても定期取得してしまうバグ修正

diff --git a/Tween/Tween.vb b/Tween/Tween.vb
index 3d77e0b..d52d5bd 100644 (file)
--- a/Tween/Tween.vb
+++ b/Tween/Tween.vb
@@ -2756,11 +2756,13 @@ Public Class TweenMain
         If tabName <> ReplaceInvalidFilename(tabName) Then Return False
 
         'タブタイプ重複チェック
-        If tabType = TabUsageType.DirectMessage OrElse _
-           tabType = TabUsageType.Favorites OrElse _
-           tabType = TabUsageType.Home OrElse _
-           tabType = TabUsageType.Mentions Then
-            If _statuses.GetTabByType(tabType) IsNot Nothing Then Return False
+        If Not startup Then
+            If tabType = TabUsageType.DirectMessage OrElse _
+               tabType = TabUsageType.Favorites OrElse _
+               tabType = TabUsageType.Home OrElse _
+               tabType = TabUsageType.Mentions Then
+                If _statuses.GetTabByType(tabType) IsNot Nothing Then Return False
+            End If
         End If
         'Dim myTab As New TabStructure()
 

diff --git a/Tween/Tween.vbproj b/Tween/Tween.vbproj
index b044a7d..4cb39ab 100644 (file)
--- a/Tween/Tween.vbproj
+++ b/Tween/Tween.vbproj
@@ -339,6 +339,6 @@
   </Target>
   -->
   <PropertyGroup>
-    <PostBuildEvent>"c:\Program Files\Microsoft.NET\SDK\v2.0\Bin\sgen.exe" /f /a:"$(TargetPath)"</PostBuildEvent>
+    <PostBuildEvent>"C:\Program Files\Microsoft Visual Studio 8\SDK\v2.0\Bin\sgen.exe" /f /a:"$(TargetPath)"</PostBuildEvent>
   </PropertyGroup>
 </Project>
\ No newline at end of file

diff --git a/Tween/Twitter.vb b/Tween/Twitter.vb
index d7ba013..7a65334 100644 (file)
--- a/Tween/Twitter.vb
+++ b/Tween/Twitter.vb
@@ -3355,8 +3355,13 @@ Public Module Twitter
         '絶対パス表現のUriをリンクに置換
         retStr = rgUrl.Replace(Text, "<a href=""$&"">$&</a>")
         '@返信を抽出し、@先リスト作成
-        Dim rg As New Regex("(^|[ -/:-@[-^`{-~])@([a-zA-Z0-9_/]{1,41})")
+        Dim rg As New Regex("(^|[ -/:-@[-^`{-~])@([a-zA-Z0-9_]{1,20}/[a-zA-Z0-9_\-]{1,24}[a-zA-Z0-9_])")
         Dim m As Match = rg.Match(retStr)
+        '@先をリンクに置換
+        retStr = rg.Replace(retStr, "$1@<a href=""/$2"">$2</a>")
+
+        rg = New Regex("(^|[ -/:-@[-^`{-~])@([a-zA-Z0-9_]{1,20})")
+        m = rg.Match(retStr)
         While m.Success
             AtList.Add(m.Result("$2").ToLower)
             m = m.NextMatch
@@ -3365,7 +3370,7 @@ Public Module Twitter
         retStr = rg.Replace(retStr, "$1@<a href=""/$2"">$2</a>")
 
         'ハッシュタグを抽出し、リンクに置換
-        Dim rgh As New Regex("(^|[] !""$%&'()*+,-.:;<=>?@[\^`{|}~])#([^] !""#$%&'()*+,-.:;<=>?@[\^`{|}~\r\n]+)")
+        Dim rgh As New Regex("(^|[ .!,-:;<>?])#([^] !""#$%&'()*+,.:;<=>?@\-[\^`{|}~\r\n]+)")
         Dim mh As Match = rgh.Match(retStr)
         If mh.Success AndAlso Not IsNumeric(mh.Result("$2")) Then
             retStr = rgh.Replace(retStr, "$1<a href=""" + _protocol + "twitter.com/search?q=%23$2"">#$2</a>")