APIモードでのハッシュタグ誤認対応

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

diff --git a/Tween/Resources/ChangeLog.txt b/Tween/Resources/ChangeLog.txt
index a0f8abd..6257e14 100644 (file)
--- a/Tween/Resources/ChangeLog.txt
+++ b/Tween/Resources/ChangeLog.txt
@@ -1,5 +1,7 @@
 更新履歴
 
+==== Ver 0.7.9.0(Unreleased)
+ * APIモードでのハッシュタグ誤認対応
 ==== Ver 0.7.8.0(2009/11/18)
  * Webモードで、公式ReTweetが有効になっている場合に、RT発言をFav発言と誤認する問題に対応
 ==== Ver 0.7.7.0(2009/11/15)

diff --git a/Tween/Twitter.vb b/Tween/Twitter.vb
index bf696ed..05e4e4d 100644 (file)
--- a/Tween/Twitter.vb
+++ b/Tween/Twitter.vb
@@ -3375,7 +3375,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>")