Browse CVS Repository
Diff of /gikonavigoeson/gikonavi/Giko.pas
Parent Directory
| Revision Log
| Revision Graph
| Patch
| 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 |
|
|
|