| 9356 |
ThreadItem.ScrollTop := OleVariant(IHTMLDocument2(FActiveContent.Browser.Document)).Body.ScrollTop; |
ThreadItem.ScrollTop := OleVariant(IHTMLDocument2(FActiveContent.Browser.Document)).Body.ScrollTop; |
| 9357 |
// スパムに設定 |
// スパムに設定 |
| 9358 |
ReadList.LoadFromFile( ThreadItem.GetThreadFileName ); |
ReadList.LoadFromFile( ThreadItem.GetThreadFileName ); |
| 9359 |
GikoSys.Bayesian.CountWord( ReadList[ KokoPopupMenu.Tag - 1 ], wordCount ); |
GikoSys.SpamCountWord( ReadList[ KokoPopupMenu.Tag - 1 ], wordCount ); |
| 9360 |
GikoSys.Bayesian.Forget( wordCount, False ); // ハムを解除 |
GikoSys.SpamForget( wordCount, False ); // ハムを解除 |
| 9361 |
GikoSys.Bayesian.Learn( wordCount, True ); // スパムに設定 |
GikoSys.SpamLearn( wordCount, True ); // スパムに設定 |
| 9362 |
// あぼーんに設定 |
// あぼーんに設定 |
| 9363 |
GikoSys.FAbon.AddIndividualAbon(KokoPopupMenu.Tag, 1, ChangeFileExt(ThreadItem.GetThreadFileName, '.NG')); |
GikoSys.FAbon.AddIndividualAbon(KokoPopupMenu.Tag, 1, ChangeFileExt(ThreadItem.GetThreadFileName, '.NG')); |
| 9364 |
finally |
finally |
| 9383 |
ThreadItem.ScrollTop := OleVariant(IHTMLDocument2(FActiveContent.Browser.Document)).Body.ScrollTop; |
ThreadItem.ScrollTop := OleVariant(IHTMLDocument2(FActiveContent.Browser.Document)).Body.ScrollTop; |
| 9384 |
// スパムに設定 |
// スパムに設定 |
| 9385 |
ReadList.LoadFromFile( ThreadItem.GetThreadFileName ); |
ReadList.LoadFromFile( ThreadItem.GetThreadFileName ); |
| 9386 |
GikoSys.Bayesian.CountWord( ReadList[ KokoPopupMenu.Tag - 1 ], wordCount ); |
GikoSys.SpamCountWord( ReadList[ KokoPopupMenu.Tag - 1 ], wordCount ); |
| 9387 |
GikoSys.Bayesian.Forget( wordCount, False ); // ハムを解除 |
GikoSys.SpamForget( wordCount, False ); // ハムを解除 |
| 9388 |
GikoSys.Bayesian.Learn( wordCount, True ); // スパムに設定 |
GikoSys.SpamLearn( wordCount, True ); // スパムに設定 |
| 9389 |
// あぼーんに設定 |
// あぼーんに設定 |
| 9390 |
GikoSys.FAbon.AddIndividualAbon(KokoPopupMenu.Tag, 0, ChangeFileExt(ThreadItem.GetThreadFileName, '.NG')); |
GikoSys.FAbon.AddIndividualAbon(KokoPopupMenu.Tag, 0, ChangeFileExt(ThreadItem.GetThreadFileName, '.NG')); |
| 9391 |
finally |
finally |
| 9416 |
try |
try |
| 9417 |
// スパムを解除 |
// スパムを解除 |
| 9418 |
ReadList.LoadFromFile( ThreadItem.GetThreadFileName ); |
ReadList.LoadFromFile( ThreadItem.GetThreadFileName ); |
| 9419 |
GikoSys.Bayesian.CountWord( ReadList[ KokoPopupMenu.Tag - 1 ], wordCount ); |
GikoSys.SpamCountWord( ReadList[ KokoPopupMenu.Tag - 1 ], wordCount ); |
| 9420 |
GikoSys.Bayesian.Forget( wordCount, True ); // スパムを解除 |
GikoSys.SpamForget( wordCount, True ); // スパムを解除 |
| 9421 |
GikoSys.Bayesian.Learn( wordCount, False ); // ハムに設定 |
GikoSys.SpamLearn( wordCount, False ); // ハムに設定 |
| 9422 |
if IndividualForm.DeleteNG(KokoPopupMenu.Tag) then begin |
if IndividualForm.DeleteNG(KokoPopupMenu.Tag) then begin |
| 9423 |
FActiveContent.Repaint := true; |
FActiveContent.Repaint := true; |
| 9424 |
InsertBrowserTab( ThreadItem, True ); |
InsertBrowserTab( ThreadItem, True ); |
| 9457 |
try |
try |
| 9458 |
// スパムを解除 |
// スパムを解除 |
| 9459 |
ReadList.LoadFromFile( ThreadItem.GetThreadFileName ); |
ReadList.LoadFromFile( ThreadItem.GetThreadFileName ); |
| 9460 |
GikoSys.Bayesian.CountWord( ReadList[ KokoPopupMenu.Tag - 1 ], wordCount ); |
GikoSys.SpamCountWord( ReadList[ KokoPopupMenu.Tag - 1 ], wordCount ); |
| 9461 |
GikoSys.Bayesian.Forget( wordCount, True ); // スパムを解除 |
GikoSys.SpamForget( wordCount, True ); // スパムを解除 |
| 9462 |
GikoSys.Bayesian.Learn( wordCount, False ); // ハムに設定 |
GikoSys.SpamLearn( wordCount, False ); // ハムに設定 |
| 9463 |
if IndividualForm.FRepaint then begin |
if IndividualForm.FRepaint then begin |
| 9464 |
FActiveContent.Repaint := true; |
FActiveContent.Repaint := true; |
| 9465 |
InsertBrowserTab( ThreadItem, True ); |
InsertBrowserTab( ThreadItem, True ); |