From 8d03f38b4c39e53e377f6de07ac4ac8391932f7f Mon Sep 17 00:00:00 2001
From: cage <cage@invalid>
Date: Sat, 30 Mar 2024 14:49:41 +0100
Subject: [PATCH] - prevented trying to authorize a fediverse client when no
 fediverse credentials has beed added to the configuration file.

---
 src/main.lisp | 7 +++++--
 1 file changed, 5 insertions(+), 2 deletions(-)

diff --git a/src/main.lisp b/src/main.lisp
index c239c1a..7d4b3f5 100644
--- a/src/main.lisp
+++ b/src/main.lisp
@@ -195,8 +195,11 @@ etc.) happened"
           (ui:display-latest-visited-urls)
           (ui:focus-to-message-window))
         (ui:focus-to-thread-window))
-    ;; now init the client
-    (when (not *gemini-full-screen-mode*)
+    ;; now init  the client we do  not check for empty  server name as
+    ;; the length of server-nems and  usernames must be the same (this
+    ;; rule is enforced by 'swconf:trivial-configuration-checks')
+    (when (not (or *gemini-full-screen-mode*
+                   (null (swconf::config-username))))
       (client:init)
       (client:authorize))
     (when command-line:*module-file*