プロフィール表示時にNullReferenceExceptionを起こす場合があったのを修正

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

diff --git a/Tween/Twitter.vb b/Tween/Twitter.vb
index 982b5fb..e82e10d 100644 (file)
--- a/Tween/Twitter.vb
+++ b/Tween/Twitter.vb
@@ -2524,6 +2524,7 @@ Public Class Twitter
         End Sub
     End Class
     Public Function CreateHtmlAnchor(ByVal Text As String, ByVal AtList As List(Of String)) As String
+        If Text Is Nothing Then Return Nothing
         Dim retStr As String = Text.Replace("&gt;", "<<<<<tweenだいなり>>>>>").Replace("&lt;", "<<<<<tweenしょうなり>>>>>")
         'uriの正規表現
         'Const rgUrl As String = "(?<before>(?:[^\""':!=]|^|\:))" + _