aboutsummaryrefslogtreecommitdiff
path: root/lisp/mastodon-toot.el
diff options
context:
space:
mode:
authormarty hiatt <martianhiatus [a t] riseup [d o t] net>2022-09-20 14:44:22 +0200
committermarty hiatt <martianhiatus [a t] riseup [d o t] net>2022-09-20 14:56:02 +0200
commit020c8efaa235e67aaa07284beae84dd9134fbc90 (patch)
treeb22b2e248d89a995ac4c5dd0f236f8f53b96f238 /lisp/mastodon-toot.el
parent9420b5ee57eeab7a62297cbf56c37f979c46a02b (diff)
FIX getting of 'parent-toot properties in mastodon-toot--reply
Diffstat (limited to 'lisp/mastodon-toot.el')
-rw-r--r--lisp/mastodon-toot.el4
1 files changed, 1 insertions, 3 deletions
diff --git a/lisp/mastodon-toot.el b/lisp/mastodon-toot.el
index 076405c..172839c 100644
--- a/lisp/mastodon-toot.el
+++ b/lisp/mastodon-toot.el
@@ -774,9 +774,7 @@ Customize `mastodon-toot-display-orig-in-reply-buffer' to display
text of the toot being replied to in the compose buffer."
(interactive)
(let* ((toot (mastodon-tl--property 'toot-json))
- ;; NB: we cannot use mastodon-tl--property for 'parent-toot
- ;; because if it doesn't have one, it is fetched from next toot!
- (parent (get-text-property (point) 'parent-toot)) ; for new notifs handling
+ (parent (mastodon-tl--field 'parent-toot toot)) ; for new notifs handling
(id (mastodon-tl--as-string
(mastodon-tl--field 'id (or parent toot))))
(account (mastodon-tl--field 'account toot))