skin 用に <NONSPAMMINESS/> を追加。

diff --git a/GikoSystem.pas b/GikoSystem.pas
index 83d79c5..ef1714b 100644 (file)
--- a/GikoSystem.pas
+++ b/GikoSystem.pas
@@ -1021,6 +1021,7 @@ begin
                Skin := CustomStringReplace( Skin, '<DATE/>', Res.FDateTime);
                Skin := CustomStringReplace( Skin, '<MESSAGE/>', Res.FBody);
                Skin := CustomStringReplace( Skin, '<SPAMMINESS/>', FloatToStr( spamminess ) );
+               Skin := CustomStringReplace( Skin, '<NONSPAMMINESS/>', FloatToStr( 100 - spamminess ) );
 
                //----- \82©\82¿\82ã\81`\82µ\82á\8cÝ\8a·\97p\81B\83R\83\81\83\93\83g\83A\83E\83g\82µ\82Ä\82à\82æ\82µ
                Skin := CustomStringReplace( Skin, '&NUMBER',
@@ -1033,6 +1034,7 @@ begin
                Skin := CustomStringReplace( Skin, '&DATE', Res.FDateTime);
                Skin := CustomStringReplace( Skin, '&MESSAGE', Res.FBody);
                Skin := CustomStringReplace( Skin, '&SPAMMINESS', FloatToStr( spamminess ) );
+               Skin := CustomStringReplace( Skin, '&NONSPAMMINESS', FloatToStr( 100 - spamminess ) );
                //----- \82±\82±\82Ü\82Å
 
                Result := Skin;
@@ -3920,6 +3922,7 @@ begin
        gsfaPaulGraham:                                 Result := Bayesian.Parse( text, wordCount, gbaPaulGraham );
        gsfaGaryRobinson:                               Result := Bayesian.Parse( text, wordCount, gbaGaryRobinson );
        gsfaGaryRobinsonFisher: Result := Bayesian.Parse( text, wordCount, gbaGaryRobinsonFisher );
+       else                                                                            Result := 0;
        end;
 
 end;