[nongnu] elpa/mastodon 1545f3b78e 05/18: get-toot-author: never get booster profile. #630.

[ELPA Syncer]

branch: elpa/mastodon
commit 1545f3b78e8ee782e88ea213ea2d4e268682389b
Author: marty hiatt <martianhiatus@disroot.org>
Commit: marty hiatt <martianhiatus@disroot.org>

    get-toot-author: never get booster profile. #630.
---
 lisp/mastodon-profile.el | 11 +++++++----
 1 file changed, 7 insertions(+), 4 deletions(-)

diff --git a/lisp/mastodon-profile.el b/lisp/mastodon-profile.el
index acbc206cdb..740afa171d 100644
--- a/lisp/mastodon-profile.el
+++ b/lisp/mastodon-profile.el
@@ -85,6 +85,7 @@
 (autoload 'mastodon-search--query "mastodon-search")
 (autoload 'mastodon-tl--field-status "mastodon-tl")
 (autoload 'mastodon-toot--with-toot-item "mastodon-toot" nil nil 'macro)
+(autoload 'mastodon-tl--toot-or-base "mastodon-tl")
 
 (defvar mastodon-active-user)
 (defvar mastodon-tl--horiz-bar)
@@ -810,13 +811,15 @@ the format \"2000-01-31T00:00:00.000Z\"."
 
 (defun mastodon-profile--get-toot-author (&optional max-id)
   "Open profile of author of toot under point.
-If toot is a boost, opens the profile of the booster.
+If toot is a boost, load the profile of the author of the original item.
 MAX-ID is a flag to include the max_id pagination parameter."
   (interactive)
   (mastodon-toot--with-toot-item
-   (mastodon-profile--make-author-buffer
-    (alist-get 'account (mastodon-profile--item-json))
-    nil nil nil nil max-id)))
+   (let ((json (mastodon-tl--toot-or-base
+                (mastodon-profile--item-json))))
+     (mastodon-profile--make-author-buffer
+      (alist-get 'account json)
+      nil nil nil nil max-id))))
 
 (defun mastodon-profile--image-from-account (account img-type)
   "Return a avatar image from ACCOUNT.