提交: 09f0a5c85585b3377529c4fa1bd4cedeb773a8aa - opentween (git)

OpenTweenのfork

Commit MetaInfo

• 修訂: 09f0a5c85585b3377529c4fa1bd4cedeb773a8aa (tree)
• 時間: 2012-02-18 23:19:40
• 作者: kiri_feather <kiri_feather@user...>
• Commiter: Kimura Youichi

Log Message

Listsのstatusで不正なユーザー情報が返ってくる場合があるので読み飛ばすよう対処

Change Summary

• modified: Tween/Twitter.vb

差異

--- 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
             '二重取得回避