From 4f4a3f44762704f85113120774a47ee5d20519c7 Mon Sep 17 00:00:00 2001
From: cage <cage-invalid@invalid>
Date: Sun, 7 Feb 2021 12:57:12 +0100
Subject: [PATCH] - [gemini]  ensured  'gemini-viewer:request'  respects  the 
 'enqueue'   argument when making recursive call to itself.

---
 src/gemini-viewer.lisp | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/src/gemini-viewer.lisp b/src/gemini-viewer.lisp
index 5ff89cf..c3b1e6f 100644
--- a/src/gemini-viewer.lisp
+++ b/src/gemini-viewer.lisp
@@ -551,6 +551,7 @@
                                                                          parsed-iri)))
                           (db-utils:with-ready-database (:connect nil)
                             (request new-url
+                                     :enqueue         enqueue
                                      :certificate-key certificate-key
                                      :certificate     certificate))))))
                (ui:ask-string-input #'on-input-complete
@@ -611,6 +612,7 @@
                       (progn
                         (gemini-client:debug-gemini "caching *not* found for ~a" actual-iri)
                         (request actual-iri
+                                 :enqueue            enqueue
                                  :certificate-key    certificate-key
                                  :certificate        certificate
                                  :use-cached-file-if-exists nil