Develop and Download Open Source Software

Browse CVS Repository

Diff of /gikonavigoeson/gikonavi/Giko.pas

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

revision 1.665 by eggcake, Sun Apr 13 04:20:24 2008 UTC revision 1.666 by eggcake, Sun Apr 13 05:25:14 2008 UTC
# Line 2317  begin Line 2317  begin
2317                  KokoPopupMenu.Popup(p.x, p.y);                  KokoPopupMenu.Popup(p.x, p.y);
2318          end else if Pos('mailto', LowerCase(URL)) <> 0 then begin          end else if Pos('mailto', LowerCase(URL)) <> 0 then begin
2319                  Cancel := not GikoSys.Setting.OpenMailer;                  Cancel := not GikoSys.Setting.OpenMailer;
2320    
2321            //@と.を含まないURLはメールアドレスとみなさない
2322            //主にage、sage対策
2323            if Pos('@', URL) = 0 or Pos('.', URL) = 0 then begin
2324                Cancel := True;
2325            end;
2326          end;          end;
2327    
2328  end;  end;

Legend:
Removed from v.1.665  
changed lines
  Added in v.1.666

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