diff options
| author | marty hiatt <martianhiatus@riseup.net> | 2024-02-01 15:58:07 +0100 |
|---|---|---|
| committer | marty hiatt <martianhiatus@riseup.net> | 2024-02-01 15:58:07 +0100 |
| commit | 136e4d387a99ea5a1eb5cd1eee85d927b04203d1 (patch) | |
| tree | bc1634665af09e819fbf5a10f749eb345227b9b2 /lisp/mastodon-auth.el | |
| parent | a8c80d25b7790746a439ae6c2deea3dc6bcac710 (diff) | |
| parent | fda3e5963d803754fc2e4d0bdbc005ab5e47a93d (diff) | |
Merge branch 'develop'
Diffstat (limited to 'lisp/mastodon-auth.el')
| -rw-r--r-- | lisp/mastodon-auth.el | 5 |
1 files changed, 2 insertions, 3 deletions
diff --git a/lisp/mastodon-auth.el b/lisp/mastodon-auth.el index 5867b97..279377b 100644 --- a/lisp/mastodon-auth.el +++ b/lisp/mastodon-auth.el @@ -4,7 +4,6 @@ ;; Copyright (C) 2021 Abhiseck Paira <abhiseckpaira@disroot.org> ;; Author: Johnson Denen <johnson.denen@gmail.com> ;; Maintainer: Marty Hiatt <martianhiatus@riseup.net> -;; Version: 1.0.0 ;; Homepage: https://codeberg.org/martianh/mastodon.el ;; This file is not part of GNU Emacs. @@ -173,13 +172,13 @@ When ASK is absent return nil." Generate/save token if none known yet." (cond (mastodon-auth--token-alist ;; user variables are known and initialised. - (alist-get mastodon-instance-url mastodon-auth--token-alist)) + (alist-get mastodon-instance-url mastodon-auth--token-alist nil nil #'equal)) ((plist-get (mastodon-client--active-user) :access_token) ;; user variables need to be read from plstore. (push (cons mastodon-instance-url (plist-get (mastodon-client--active-user) :access_token)) mastodon-auth--token-alist) - (alist-get mastodon-instance-url mastodon-auth--token-alist)) + (alist-get mastodon-instance-url mastodon-auth--token-alist nil nil #'equal)) ((null mastodon-active-user) ;; user not aware of 2FA-related changes and has not set ;; `mastodon-active-user'. Make user aware and error out. |