From 0c80780a32b6a70c4da30c53fb2f646d6ac79b7a Mon Sep 17 00:00:00 2001
From: Johnson Denen <johnson.denen@gmail.com>
Date: Wed, 12 Apr 2017 18:01:13 -0400
Subject: Add `mastodon-auth--client' function

Replace direct references to `mastodon--client-app-plist'
---
 lisp/mastodon-auth.el | 6 +++++-
 1 file changed, 5 insertions(+), 1 deletion(-)

(limited to 'lisp')

diff --git a/lisp/mastodon-auth.el b/lisp/mastodon-auth.el
index 260f838..ef16ab9 100644
--- a/lisp/mastodon-auth.el
+++ b/lisp/mastodon-auth.el
@@ -71,10 +71,14 @@ STATUS is passed by `url-retrieve'."
   "Return t if `mastodon--client-app-plist' has a :client_secret value."
   (when (plist-get mastodon--client-app-plist :client_secret) t))
 
+(defun mastodon-auth--client ()
+  "Return `mastodon--client-app-plist' value."
+  mastodon--client-app-plist)
+
 (defun mastodon--register-and-return-client-app ()
   "Register `mastodon' with an instance. Return `mastodon--client-app-plist'."
   (if (mastodon-auth--client-app-secret-p)
-      mastodon--client-app-plist
+      (mastodon-auth--client)
     (progn
       (mastodon--register-client-app)
       (sleep-for 2)
-- 
cgit v1.2.3