From d39a2f15e2a72d2beaa40e33b7c30cd0a39c6a0b Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Stefan=20H=C3=A4rter?= <stefan.haerter@protonmail.com>
Date: Wed, 12 Jul 2023 20:03:02 +0200
Subject: [PATCH] Fixed message remembering.

---
 F1DataBot.pm | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/F1DataBot.pm b/F1DataBot.pm
index 808f54a..c026d4f 100644
--- a/F1DataBot.pm
+++ b/F1DataBot.pm
@@ -434,6 +434,8 @@ sub fetchMessages {
         if ( !$Self->{Whitelist}{$Message->{message}{from}{id}} ) {
             $Self->{LogObject}
               ->info( 'fetchMessages: User not whitelisted, skipping message ' . Dumper($MessageDataRaw) );
+
+            $Self->{MessageIDs}{$Message->{message}{message_id}} = 1;
             next MESSAGE;
         }
         if ($Self->{MessageIDs}{$Message->{message}{message_id}}) {
@@ -446,7 +448,7 @@ sub fetchMessages {
             $Self->processMessage( Message => $Message, );
         }
     }
-    YAML::DumpFile('message_ids.yml', $Self->{MessageIDs});
+    YAML::DumpFile("$FindBin::Bin/message_ids.yml", $Self->{MessageIDs});
 }
 
 1;