コメントテスト２

[gikonavigoeson/gikonavi.git] / Giko.pas

diff --git a/Giko.pas b/Giko.pas
index 037d505..416e3e9 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;
@@ -4947,10 +4953,6 @@ begin
        if PreviewTimer.Enabled then
                PreviewTimer.Enabled := False;
 
-       if (FResPopupBrowser <> nil) and (IsWindowVisible(FResPopupBrowser.Handle)) then begin
-        FResPopupBrowser.Clear;
-       end;
-
        if (FPreviewBrowser <> nil)
                and (IsWindowVisible(FPreviewBrowser.Handle)) then begin
         //\82±\82±\82Å\8fÁ\82³\82ê\82é\82Ì\82ª\96â\91è