- substituted default values for 'fetch-remote-status'.

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."

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)))