mailto:以降に@と.がないときはメーラーを起動しないように修正

diff --git a/Giko.pas b/Giko.pas
index 037d505..30cd081 100644 (file)
--- a/Giko.pas
+++ b/Giko.pas
@@ -2317,6 +2317,12 @@ begin
                KokoPopupMenu.Popup(p.x, p.y);
        end else if Pos('mailto', LowerCase(URL)) <> 0 then begin
                Cancel := not GikoSys.Setting.OpenMailer;
+
+        //@\82Æ.\82ð\8aÜ\82Ü\82È\82¢URL\82Í\83\81\81[\83\8b\83A\83h\83\8c\83X\82Æ\82Ý\82È\82³\82È\82¢
+        //\8eå\82Éage\81Asage\91Î\8dô
+        if Pos('@', URL) = 0 or Pos('.', URL) = 0 then begin
+            Cancel := True;
+        end;
        end;
 
 end;