aboutsummaryrefslogtreecommitdiff
path: root/lisp/mastodon-toot.el
diff options
context:
space:
mode:
Diffstat (limited to 'lisp/mastodon-toot.el')
-rw-r--r--lisp/mastodon-toot.el7
1 files changed, 4 insertions, 3 deletions
diff --git a/lisp/mastodon-toot.el b/lisp/mastodon-toot.el
index 9491d2a..c21e5b6 100644
--- a/lisp/mastodon-toot.el
+++ b/lisp/mastodon-toot.el
@@ -40,6 +40,7 @@
(autoload 'mastodon-tl--field "mastodon-tl")
(autoload 'mastodon-tl--goto-next-toot "mastodon-tl")
(autoload 'mastodon-tl--property "mastodon-tl")
+(autoload 'mastodon-tl--find-property-range "mastodon-tl")
(autoload 'mastodon-toot "mastodon")
(defvar mastodon-toot--reply-to-id nil
@@ -77,7 +78,7 @@ Remove MARKER if REMOVE is non-nil, otherwise add it."
(defun mastodon-toot--action (action callback)
"Take ACTION on toot at point, then execute CALLBACK."
- (let* ((id (mastodon-tl--property 'toot-id))
+ (let* ((id (mastodon-tl--property 'base-toot-id))
(url (mastodon-http--api (concat "statuses/"
(mastodon-tl--as-string id)
"/"
@@ -90,7 +91,7 @@ Remove MARKER if REMOVE is non-nil, otherwise add it."
(interactive)
(let* ((byline-region (mastodon-tl--find-property-range 'byline (point)))
(id (when byline-region
- (mastodon-tl--as-string (mastodon-tl--property 'toot-id))))
+ (mastodon-tl--as-string (mastodon-tl--property 'base-toot-id))))
(boosted (when byline-region
(get-text-property (car byline-region) 'boosted-p)))
(action (if boosted "unreblog" "reblog"))
@@ -114,7 +115,7 @@ Remove MARKER if REMOVE is non-nil, otherwise add it."
(interactive)
(let* ((byline-region (mastodon-tl--find-property-range 'byline (point)))
(id (when byline-region
- (mastodon-tl--as-string (mastodon-tl--property 'toot-id))))
+ (mastodon-tl--as-string (mastodon-tl--property 'base-toot-id))))
(faved (when byline-region
(get-text-property (car byline-region) 'favourited-p)))
(action (if faved "unfavourite" "favourite"))