Develop and Download Open Source Software

Browse CVS Repository

Diff of /gikonavigoeson/gikonavi/AbonUnit.pas

Parent Directory Parent Directory | Revision Log Revision Log | View Revision Graph Revision Graph | View Patch Patch

revision 1.34 by yoffy, Thu Oct 21 09:04:26 2004 UTC revision 1.35 by yoffy, Wed Oct 27 00:10:12 2004 UTC
# Line 111  const Line 111  const
111    
112  implementation  implementation
113    
114  uses MojuUtils, GikoSystem, GikoBayesian;  uses MojuUtils, GikoSystem, GikoBayesian, Setting;
115    
116  function InvidiAbonListSort( item1, item2 : Pointer ) : Integer;  function InvidiAbonListSort( item1, item2 : Pointer ) : Integer;
117  begin  begin
# Line 614  const Line 614  const
614          SPAM_THRESHOLD = 0.9;          SPAM_THRESHOLD = 0.9;
615  begin  begin
616    
617            if GikoSys.Setting.SpamFilterAlgorithm = gsfaNone then Exit;
618          j := 0;          j := 0;
619          wordCount := TWordCount.Create;          wordCount := TWordCount.Create;
620          try          try

Legend:
Removed from v.1.34  
changed lines
  Added in v.1.35

Back to OSDN">Back to OSDN
ViewVC Help
Powered by ViewVC 1.1.26