画像プレビューで http://www.twitpic.com/ で始まるTwitPicのURLに対応した

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

diff --git a/Tween/Resources/ChangeLog.txt b/Tween/Resources/ChangeLog.txt
index 2677cb2..417cad5 100644 (file)
--- a/Tween/Resources/ChangeLog.txt
+++ b/Tween/Resources/ChangeLog.txt
@@ -6,6 +6,7 @@
  * 読み上げソフトで、タイムラインの選択tweetを変更すると、画像投稿画面の「投稿先」ラベルを毎回読み上げてしまうので、未使用時は投稿画面のパーツを無効に
  * 画像投稿モードで設定したファイルをロックしたままになるバグを修正
  * 画像投稿モードでファイル名として入力された文字列が無効なパス形式の場合に例外が発生するバグを修正
+ * 画像プレビューで http://www.twitpic.com/ で始まるTwitPicのURLに対応した 
 ==== Ver 0.9.4.0(2010/07/15)
  * 認証完了後、自分の発言が片思い表示になるバグ修正
  * ユーザー変更時にフォロワー情報を取得するよう変更

diff --git a/Tween/Tween.vb b/Tween/Tween.vb
index 6b86cb7..0aa40b6 100644 (file)
--- a/Tween/Tween.vb
+++ b/Tween/Tween.vb
@@ -8515,9 +8515,9 @@ RETRY:
                 Continue For
             End If
             'twitpic
-            mc = Regex.Match(url, "^http://twitpic\.com/(\w+)(/full/?)?$", RegexOptions.IgnoreCase)
+            mc = Regex.Match(url, "^http://(www\.)?twitpic\.com/(?<photoId>\w+)(/full/?)?$", RegexOptions.IgnoreCase)
             If mc.Success Then
-                imglist.Add(New KeyValuePair(Of String, String)(url, mc.Result("http://twitpic.com/show/thumb/${1}")))
+                imglist.Add(New KeyValuePair(Of String, String)(url, mc.Result("http://twitpic.com/show/thumb/${photoId}")))
                 Continue For
             End If
             'yfrog