From 5977495b8a7d2782b36723289e805f018375275b Mon Sep 17 00:00:00 2001
From: marty hiatt <martianhiatus@riseup.net>
Date: Wed, 21 Feb 2024 10:26:53 +0100
Subject: move condition case from http get-response to credential-account

---
 lisp/mastodon.el | 7 ++++++-
 1 file changed, 6 insertions(+), 1 deletion(-)

(limited to 'lisp/mastodon.el')

diff --git a/lisp/mastodon.el b/lisp/mastodon.el
index ffeee82..abc7787 100644
--- a/lisp/mastodon.el
+++ b/lisp/mastodon.el
@@ -315,7 +315,12 @@ FORCE means to fetch from the server and update
                nil :silent)))
     (if force
         (setq mastodon-profile-credential-account
-              (eval req))
+              ;; TODO: we should also signal a quit condition after like 5
+              ;; secs here
+              (condition-case x
+                  (eval req)
+                (t ; req fails, return old value
+                 mastodon-profile-credential-account)))
       (or mastodon-profile-credential-account
           (setq mastodon-profile-credential-account
                 (eval req))))))
-- 
cgit v1.2.3