diff options
| author | marty hiatt <martianhiatus@riseup.net> | 2024-08-22 12:09:20 +0200 |
|---|---|---|
| committer | marty hiatt <martianhiatus@riseup.net> | 2024-08-22 12:09:20 +0200 |
| commit | 8b6e7a2312556552fd26f81d7ebafc94e3ef1316 (patch) | |
| tree | 1a2e2bf8188108f8102d2c6ac90ccfbf1ae057a5 /lisp/mastodon-auth.el | |
| parent | 4c5f5ef110a0a1dbf2044106c11d3cae975f7d73 (diff) | |
| parent | beeb8f3b2ebe25e8e3fb92e6f030cec39b818cec (diff) | |
Merge branch 'equal' into develop
Diffstat (limited to 'lisp/mastodon-auth.el')
| -rw-r--r-- | lisp/mastodon-auth.el | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lisp/mastodon-auth.el b/lisp/mastodon-auth.el index 404dd57..3796b7e 100644 --- a/lisp/mastodon-auth.el +++ b/lisp/mastodon-auth.el @@ -173,13 +173,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 nil nil #'equal)) + (alist-get mastodon-instance-url mastodon-auth--token-alist nil nil #'string=)) ((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 nil nil #'equal)) + (alist-get mastodon-instance-url mastodon-auth--token-alist nil nil #'string=)) ((null mastodon-active-user) ;; user not aware of 2FA-related changes and has not set ;; `mastodon-active-user'. Make user aware and error out. |