diff options
| author | marty hiatt <martianhiatus [a t] riseup [d o t] net> | 2022-10-29 16:32:46 +0200 |
|---|---|---|
| committer | marty hiatt <martianhiatus [a t] riseup [d o t] net> | 2022-10-29 16:32:46 +0200 |
| commit | 93f135ca7400d6572663e5b27154109ea2879b6b (patch) | |
| tree | aa1813b138cf1de9510f520da0c9072c7bfeb8c1 /lisp/mastodon-profile.el | |
| parent | f6b983e04fe3ac091398dd74cdbf3a986b969b2a (diff) | |
| parent | 4bfe8b8696ae36e3331f6900101aed003185be90 (diff) | |
Merge branch 'develop' into update-meta-fields
Diffstat (limited to 'lisp/mastodon-profile.el')
| -rw-r--r-- | lisp/mastodon-profile.el | 10 |
1 files changed, 6 insertions, 4 deletions
diff --git a/lisp/mastodon-profile.el b/lisp/mastodon-profile.el index 6ecabb2..0b35fa4 100644 --- a/lisp/mastodon-profile.el +++ b/lisp/mastodon-profile.el @@ -509,10 +509,12 @@ FIELDS means provide a fields vector fetched by other means." (mastodon-profile--account-field account 'statuses_count))) (relationships (mastodon-profile--relationships-get id)) - (followed-by-you (alist-get 'following - (aref relationships 0))) - (follows-you (alist-get 'followed_by - (aref relationships 0))) + (followed-by-you (when (not (seq-empty-p relationships)) + (alist-get 'following + (aref relationships 0)))) + (follows-you (when (not (seq-empty-p relationships)) + (alist-get 'followed_by + (aref relationships 0)))) (followsp (or (equal follows-you 't) (equal followed-by-you 't))) (fields (mastodon-profile--fields-get account)) (pinned (mastodon-profile--get-statuses-pinned account))) |