[nongnu] elpa/mastodon c688fd0b6e 09/22: fix setting lang un toot compose buffer

[ELPA Syncer]

branch: elpa/mastodon
commit c688fd0b6eaa02b9fe0232fed860dd4d846bebdb
Author: marty hiatt <martianhiatus@riseup.net>
Commit: marty hiatt <martianhiatus@riseup.net>

    fix setting lang un toot compose buffer
---
 lisp/mastodon-profile.el | 2 +-
 lisp/mastodon-toot.el    | 3 +--
 2 files changed, 2 insertions(+), 3 deletions(-)

diff --git a/lisp/mastodon-profile.el b/lisp/mastodon-profile.el
index 98ac9defac..712d447e27 100644
--- a/lisp/mastodon-profile.el
+++ b/lisp/mastodon-profile.el
@@ -501,7 +501,7 @@ Returns the results as an alist."
   "Limit string X to 255 chars max."
   (if (> (length x) 255) (substring x 0 255) x))
 
-;; used in tl.el
+;; used in tl.el and toot.el:
 (defun mastodon-profile--get-preferences-pref (pref)
   "Fetch PREF from the endpoint \"/preferences\".
 If `mastodon-profile-acccount-preferences-data' is set, fetch
diff --git a/lisp/mastodon-toot.el b/lisp/mastodon-toot.el
index 89b1eec801..654918cc4c 100644
--- a/lisp/mastodon-toot.el
+++ b/lisp/mastodon-toot.el
@@ -1892,8 +1892,7 @@ EDIT means we are editing an existing toot, not composing 
a new one."
     ;; `mastodon-profile-credential-account' nor in
     ;; `mastodon-profile-account-settings'!
     (setq mastodon-toot--language
-          (alist-get 'posting:default:language
-                     mastodon-profile-acccount-preferences-data))
+          (mastodon-profile--get-preferences-pref 'posting:default:language))
     ;; display original toot:
     (if mastodon-toot-display-orig-in-reply-buffer
         (progn