From 0ceb3183ca66aac3f920a52ae74397186f89c87a Mon Sep 17 00:00:00 2001
From: syo68k <syo68k@users.sourceforge.jp>
Date: Thu, 20 Jan 2011 11:52:58 +0000
Subject: [PATCH] =?utf8?q?=E3=81=B5=E3=81=81=E3=81=BC=E3=82=89=E3=82=8C?=
 =?utf8?q?=E3=82=92=E9=96=8B=E3=81=8F=E9=9A=9B=E3=81=AEID=E5=85=A5?=
 =?utf8?q?=E5=8A=9B=E3=83=80=E3=82=A4=E3=82=A2=E3=83=AD=E3=82=B0=E3=81=8CU?=
 =?utf8?q?serTimeline=E3=81=AE=E3=82=82=E3=81=AE=E3=81=AB=E3=81=AA?=
 =?utf8?q?=E3=81=A3=E3=81=A6=E3=81=84=E3=81=9F=E3=83=90=E3=82=B0=E3=82=92?=
 =?utf8?q?=E4=BF=AE=E6=AD=A3?=
MIME-Version: 1.0
Content-Type: text/plain; charset=utf8
Content-Transfer-Encoding: 8bit

git-svn-id: http://svn.sourceforge.jp/svnroot/tween/trunk@1390 e39ad16e-3079-482e-bb30-4b4d378143b6
---
 Tween/Tween.vb | 10 ++++------
 1 file changed, 4 insertions(+), 6 deletions(-)

diff --git a/Tween/Tween.vb b/Tween/Tween.vb
index ce692887..20e24c5f 100644
--- a/Tween/Tween.vb
+++ b/Tween/Tween.vb
@@ -9800,8 +9800,6 @@ RETRY:
     End Sub
 
     Private Sub tw_NewPostFromStream()
-        Me._myStatusError = False
-
         If SettingDialog.ReadOldPosts Then
             _statuses.SetRead() '新着時未読クリア
         End If
@@ -10032,13 +10030,13 @@ RETRY:
         End Get
     End Property
 
-    Private Function GetUserIdFromCurPostOrInput() As String
+    Private Function GetUserIdFromCurPostOrInput(ByVal caption As String) As String
         Dim id As String = ""
         If _curPost IsNot Nothing Then
             id = _curPost.Name
         End If
         Using inputName As New InputTabName()
-            inputName.FormTitle = "Show UserTimeline"
+            inputName.FormTitle = caption
             inputName.FormDescription = My.Resources.FRMessage1
             inputName.TabName = id
             If inputName.ShowDialog() = Windows.Forms.DialogResult.OK AndAlso _
@@ -10052,14 +10050,14 @@ RETRY:
     End Function
 
     Private Sub UserTimelineToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles UserTimelineToolStripMenuItem.Click
-        Dim id As String = GetUserIdFromCurPostOrInput()
+        Dim id As String = GetUserIdFromCurPostOrInput("Show UserTimeline")
         If Not String.IsNullOrEmpty(id) Then
             AddNewTabForUserTimeline(id)
         End If
     End Sub
 
     Private Sub UserFavorareToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles UserFavorareToolStripMenuItem.Click
-        Dim id As String = GetUserIdFromCurPostOrInput()
+        Dim id As String = GetUserIdFromCurPostOrInput("Show Favstar")
         If Not String.IsNullOrEmpty(id) Then
             OpenUriAsync(My.Resources.FavstarUrl + "users/" + id + "/recent")
         End If
-- 
2.11.0