From afb3ac38e0e9738d73a5cd1cb5d5b63f059b781a Mon Sep 17 00:00:00 2001
From: marty hiatt <martianhiatus [a t] riseup [d o t] net>
Date: Sun, 27 Aug 2023 15:16:57 +0200
Subject: force arg for mastodon-return-credential-account.

---
 lisp/mastodon.el | 20 ++++++++++++++------
 1 file changed, 14 insertions(+), 6 deletions(-)

(limited to 'lisp/mastodon.el')

diff --git a/lisp/mastodon.el b/lisp/mastodon.el
index a3b372d..63f9a32 100644
--- a/lisp/mastodon.el
+++ b/lisp/mastodon.el
@@ -281,7 +281,7 @@ See `mastodon-toot-display-orig-in-reply-buffer'.")
                                     (string-prefix-p "*mastodon-" (buffer-name x))
                                   (get-buffer x)))
                               (buffer-list))))) ; catch any other masto buffer
-    (mastodon-return-credential-account)
+    (mastodon-return-credential-account :force)
     (if buffer
         (switch-to-buffer buffer)
       (mastodon-tl--get-home-timeline)
@@ -291,14 +291,22 @@ See `mastodon-toot-display-orig-in-reply-buffer'.")
 
 (defvar mastodon-profile-credential-account nil)
 
-(defun mastodon-return-credential-account ()
+(defun mastodon-return-credential-account (&optional force)
   "Return the CredentialAccount entity.
-Either from `mastodon-profile-credential-account' or from the server."
-  (or mastodon-profile-credential-account
+Either from `mastodon-profile-credential-account' or from the
+server.
+FORCE means to fetch from the server and update
+`mastodon-profile-credential-account'."
+  (if force
       (setq mastodon-profile-credential-account
             (mastodon-http--get-json
              (mastodon-http--api "accounts/verify_credentials")
-             nil :silent))))
+             nil :silent))
+    (or mastodon-profile-credential-account
+        (setq mastodon-profile-credential-account
+              (mastodon-http--get-json
+               (mastodon-http--api "accounts/verify_credentials")
+               nil :silent)))))
 
 ;;;###autoload
 (defun mastodon-toot (&optional user reply-to-id reply-json)
@@ -420,7 +428,7 @@ Calls `mastodon-tl--get-buffer-type', which see."
                                   (when mastodon-toot--enable-custom-instance-emoji
                                     (mastodon-toot--enable-custom-emoji))
                                   (when mastodon-tl--highlight-current-toot
-                                    (cursor-face-highlight-mode)))))
+                                    (cursor-face-highlight-mode))))) ; 29.1
 
 ;;;###autoload
 (add-hook 'mastodon-mode-hook #'mastodon-profile--fetch-server-account-settings)
-- 
cgit v1.2.3