From 162d32662e825bbc6b0f7d60e342dd160681c57d Mon Sep 17 00:00:00 2001
From: cage <cage@invalid>
Date: Sat, 17 Feb 2024 14:03:39 +0100
Subject: [PATCH] - removed output from ssl command when checking for empty
 password for a certificate.

---
 src/os-utils.lisp   | 2 +-
 src/ui-goodies.lisp | 4 ++--
 2 files changed, 3 insertions(+), 3 deletions(-)

diff --git a/src/os-utils.lisp b/src/os-utils.lisp
index e0af79b..4408e02 100644
--- a/src/os-utils.lisp
+++ b/src/os-utils.lisp
@@ -191,7 +191,7 @@
                                           (text-utils:split-words cmd-args)
                                           :input  passphrase-stream
                                           :output nil
-                                          :error  t
+                                          :error  nil
                                           :wait t)))
       (process-exit-success-p process))))
 
diff --git a/src/ui-goodies.lisp b/src/ui-goodies.lisp
index 454ca6c..d0c7624 100644
--- a/src/ui-goodies.lisp
+++ b/src/ui-goodies.lisp
@@ -3084,8 +3084,8 @@ printed, on the main window."
             (multiple-value-bind (cached-certificate cached-key cached-key-password just-created)
                 (gemini-client:fetch-cached-certificate url :if-does-not-exist :create)
               (if (or just-created
-                      (os-utils:ssl-key-has-empty-password-p cached-key)
-                      cached-key-password)
+                      cached-key-password
+                      (os-utils:ssl-key-has-empty-password-p cached-key))
                   (init-window)
                   (progn
                     (flet ((on-input-complete (password)