Make sure message are loaded when scrolling to the top

(cherry picked from commit 49c1736f7c)

imports/NeoChat/Page/RoomPage.qml

@@ -237,6 +237,18 @@ Kirigami.ScrollablePage {
             room: currentRoom
         }
 
+        Timer {
+            interval: 1000
+            running: messageListView.atYBeginning
+            triggeredOnStart: true
+            onTriggered: {
+                if (messageListView.atYBeginning && messageEventModel.canFetchMore(messageEventModel.index(0, 0))) {
+                    messageEventModel.fetchMore(messageEventModel.index(0, 0));
+                }
+            }
+            repeat: true
+        }
+
         // HACK: The view should do this automatically but doesn't.
         onAtYBeginningChanged: if (atYBeginning && messageEventModel.canFetchMore(messageEventModel.index(0, 0))) {
             messageEventModel.fetchMore(messageEventModel.index(0, 0));