svnno****@sourc*****
svnno****@sourc*****
2011年 10月 9日 (日) 17:07:50 JST
Revision: 1621
http://sourceforge.jp/projects/tween/svn/view?view=rev&revision=1621
Author: syo68k
Date: 2011-10-09 17:07:50 +0900 (Sun, 09 Oct 2011)
Log Message:
-----------
通常post追加時にNullReferenceExceptionが発生するバグを修正
Modified Paths:
--------------
trunk/Tween/Twitter.vb
-------------- next part --------------
Modified: trunk/Tween/Twitter.vb
===================================================================
--- trunk/Tween/Twitter.vb 2011-10-09 07:39:11 UTC (rev 1620)
+++ trunk/Tween/Twitter.vb 2011-10-09 08:07:50 UTC (rev 1621)
@@ -1722,10 +1722,6 @@
post.InReplyToUser = status.InReplyToScreenName
Long.TryParse(status.InReplyToUserId, post.InReplyToUserId)
- '幻覚fav対策
- Dim tc As TabClass = TabInformations.GetInstance.GetTabByType(TabUsageType.Favorites)
- post.IsFav = tc.Contains(post.StatusId) AndAlso post.ScreenName.ToLower.Equals(_uname)
-
If status.Geo IsNot Nothing Then post.PostGeo = New PostClass.StatusGeo() With {.Lat = status.Geo.Coordinates(0), .Lng = status.Geo.Coordinates(1)}
'以下、ユーザー情報
@@ -1739,6 +1735,10 @@
post.ImageUrl = user.ProfileImageUrl
post.IsProtect = user.Protected
post.IsMe = post.ScreenName.ToLower.Equals(_uname)
+
+ '幻覚fav対策
+ Dim tc As TabClass = TabInformations.GetInstance.GetTabByType(TabUsageType.Favorites)
+ post.IsFav = tc.Contains(post.StatusId) AndAlso post.IsMe
End If
'HTMLに整形
post.Text = CreateHtmlAnchor(post.TextFromApi, post.ReplyToList, entities, post.Media)