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

diff --git a/Giko.pas b/Giko.pas
index 30cd081..0ac8891 100644 (file)
--- a/Giko.pas
+++ b/Giko.pas
@@ -2320,7 +2320,7 @@ begin
 
         //@\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
+        if (Pos('@', URL) = 0) or (Pos('.', URL) = 0) then begin
             Cancel := True;
         end;
        end;