制御文字のみ投稿した場合に例外になる問題に対応（IsPostRestricted）

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

diff --git a/Tween/Twitter.vb b/Tween/Twitter.vb
index e4ed062..331dc13 100644 (file)
--- a/Tween/Twitter.vb
+++ b/Tween/Twitter.vb
@@ -326,7 +326,12 @@ Public Class Twitter
             xd.LoadXml(resMsg)
             _current.CreatedAt = xd.SelectSingleNode("/status/created_at/text()").Value
             _current.Id = xd.SelectSingleNode("/status/id/text()").Value
-            _current.Text = xd.SelectSingleNode("/status/text/text()").Value
+            If xd.SelectSingleNode("/status/text/text()") Is Nothing Then
+                '制御文字のみ投稿した場合はNothing
+                _current.Text = ""
+            Else
+                _current.Text = xd.SelectSingleNode("/status/text/text()").Value
+            End If
             _current.UserId = xd.SelectSingleNode("/status/user/id/text()").Value
 
             If _current.Equals(_prev) Then