From 09f0a5c85585b3377529c4fa1bd4cedeb773a8aa Mon Sep 17 00:00:00 2001
From: kiri_feather <kiri_feather@users.sourceforge.jp>
Date: Wed, 15 Jun 2011 01:42:31 +0900
Subject: [PATCH] =?utf8?q?Lists=E3=81=AEstatus=E3=81=A7=E4=B8=8D=E6=AD=A3?=
 =?utf8?q?=E3=81=AA=E3=83=A6=E3=83=BC=E3=82=B6=E3=83=BC=E6=83=85=E5=A0=B1?=
 =?utf8?q?=E3=81=8C=E8=BF=94=E3=81=A3=E3=81=A6=E3=81=8F=E3=82=8B=E5=A0=B4?=
 =?utf8?q?=E5=90=88=E3=81=8C=E3=81=82=E3=82=8B=E3=81=AE=E3=81=A7=E8=AA=AD?=
 =?utf8?q?=E3=81=BF=E9=A3=9B=E3=81=B0=E3=81=99=E3=82=88=E3=81=86=E5=AF=BE?=
 =?utf8?q?=E5=87=A6?=
MIME-Version: 1.0
Content-Type: text/plain; charset=utf8
Content-Transfer-Encoding: 8bit

---
 Tween/Twitter.vb | 7 +++++++
 1 file changed, 7 insertions(+)

diff --git a/Tween/Twitter.vb b/Tween/Twitter.vb
index f3d7b1b4..22519f57 100644
--- a/Tween/Twitter.vb
+++ b/Tween/Twitter.vb
@@ -629,6 +629,7 @@ Public Class Twitter
 
         'ReTweetしたものをTLに追加
         Dim post As PostClass = CreatePostsFromStatusData(status)
+        If post Is Nothing Then Return "Invalid Json!"
 
         '二重取得回避
         SyncLock LockObj
@@ -1501,6 +1502,8 @@ Public Class Twitter
             '以下、ユーザー情報
             Dim user As TwitterDataModel.User = retweeted.User
 
+            If user.ScreenName Is Nothing OrElse status.User.ScreenName Is Nothing Then Return Nothing
+
             post.UserId = user.Id
             post.ScreenName = user.ScreenName
             post.Nickname = user.Name.Trim()
@@ -1527,6 +1530,8 @@ Public Class Twitter
             '以下、ユーザー情報
             Dim user As TwitterDataModel.User = status.User
 
+            If user.ScreenName Is Nothing Then Return Nothing
+
             post.UserId = user.Id
             post.ScreenName = user.ScreenName
             post.Nickname = user.Name.Trim()
@@ -1570,6 +1575,7 @@ Public Class Twitter
         For Each status As TwitterDataModel.Status In items
             Dim post As PostClass = Nothing
             post = CreatePostsFromStatusData(status)
+            If post Is Nothing Then Continue For
 
             If minimumId > post.StatusId Then minimumId = post.StatusId
             '二重取得回避
@@ -1612,6 +1618,7 @@ Public Class Twitter
         For Each status As TwitterDataModel.Status In items.Statuses
             Dim post As PostClass = Nothing
             post = CreatePostsFromStatusData(status)
+            If post Is Nothing Then Continue For
 
             If minimumId > post.StatusId Then minimumId = post.StatusId
             '二重取得回避
-- 
2.11.0