From 160115306298b0a108101f012018420a44367bb2 Mon Sep 17 00:00:00 2001
From: Thomas Citharel <tcit@tcit.fr>
Date: Mon, 3 Oct 2022 19:33:54 +0200
Subject: [PATCH] Add all proper filters for related events

Signed-off-by: Thomas Citharel <tcit@tcit.fr>
---
 lib/mobilizon/events/events.ex | 6 +++++-
 1 file changed, 5 insertions(+), 1 deletion(-)

diff --git a/lib/mobilizon/events/events.ex b/lib/mobilizon/events/events.ex
index 07bf63af9..9ad6d0550 100644
--- a/lib/mobilizon/events/events.ex
+++ b/lib/mobilizon/events/events.ex
@@ -1688,6 +1688,7 @@ defmodule Mobilizon.Events do
 
   @threshold_related_value 7
 
+  @spec related_events(Event.t()) :: list(Event.t())
   def related_events(%Event{
         id: event_id,
         tags: tags,
@@ -1702,6 +1703,10 @@ defmodule Mobilizon.Events do
     |> distinct([e], e.id)
     |> join(:left, [e], et in "events_tags", on: e.id == et.event_id)
     |> join(:left, [e], a in Address, on: e.physical_address_id == a.id)
+    |> events_for_begins_on(%{})
+    |> filter_draft()
+    |> filter_local_or_from_followed_instances_events()
+    |> filter_public_visibility()
     |> where(
       [e, et, a],
       fragment(
@@ -1719,7 +1724,6 @@ defmodule Mobilizon.Events do
         @threshold_related_value
       )
     )
-    # |> where([e], e.begins_on > ^DateTime.utc_now())
     |> where([e], e.id != ^event_id)
     |> order_by(
       [e, et, a],