From 1f143298529890782c9ffef65f462baacf99b4c5 Mon Sep 17 00:00:00 2001
From: cage <cage@invalid>
Date: Thu, 27 Jun 2024 16:50:31 +0200
Subject: [PATCH] - substituted default values for 'fetch-remote-status'.

---
 src/api-client.lisp     | 5 ++++-
 src/program-events.lisp | 4 ++--
 2 files changed, 6 insertions(+), 3 deletions(-)

diff --git a/src/api-client.lisp b/src/api-client.lisp
index cedae0d..b8b3263 100644
--- a/src/api-client.lisp
+++ b/src/api-client.lisp
@@ -501,7 +501,10 @@ become an emty string (\"\")
                               :limit  limit
                               :min-id max-id))))
 
-(defun-api-call fetch-remote-status (status-id &optional folder timeline)
+(defun-api-call fetch-remote-status (status-id
+                                     &optional
+                                     (folder db:+default-status-folder+)
+                                     (timeline db:+local-timeline+))
   "Fetch a single status identified by status-id and generate an event
 `fetch-remote-status-event' that, in turn will  save the status to the
 database."
diff --git a/src/program-events.lisp b/src/program-events.lisp
index 6d1def0..6466b45 100644
--- a/src/program-events.lisp
+++ b/src/program-events.lisp
@@ -558,11 +558,11 @@
 
 (defclass fetch-remote-status-event (program-event)
   ((timeline
-    :initform nil
+    :initform db:+local-timeline+
     :initarg  :timeline
     :accessor timeline)
    (folder
-    :initform nil
+    :initform db:+default-status-folder+
     :initarg  :folder
     :accessor folder)))