公式RTのfav状態をそのまま反映するよう変更
git-svn-id: http://svn.sourceforge.jp/svnroot/tween/trunk@108
e39ad16e-3079-482e-bb30-
4b4d378143b6
If _addedIds Is Nothing Then _addedIds = New List(Of Long)
If _notifyPosts Is Nothing Then _notifyPosts = New List(Of PostClass)
Me.Distribute() 'タブに仮振分
- _addCount += _addedIds.Count
+ Dim retCnt As Integer = _addedIds.Count
+ _addCount += retCnt
_addedIds.Clear()
_addedIds = Nothing '後始末
- Return _addCount '件数
+ Return retCnt '件数
End SyncLock
End Function
'Reply先
Long.TryParse(xRentry.Item("in_reply_to_status_id").InnerText, post.InReplyToId)
post.InReplyToUser = xRentry.Item("in_reply_to_screen_name").InnerText
- post.IsFav = TabInformations.GetInstance.GetTabByType(TabUsageType.Favorites).Contains(post.RetweetedId)
+ 'post.IsFav = TabInformations.GetInstance.GetTabByType(TabUsageType.Favorites).Contains(post.RetweetedId)
+ post.IsFav = Boolean.Parse(xentry.Item("favorited").InnerText)
'以下、ユーザー情報
Dim xRUentry As XmlElement = CType(xRentry.SelectSingleNode("./user"), XmlElement)