From 7c1adc4c515dddce4fa6e39f5a6ab559033c31d8 Mon Sep 17 00:00:00 2001
From: marty hiatt <martianhiatus [a t] riseup [d o t] net>
Date: Sat, 3 Sep 2022 14:35:52 +0200
Subject: get-text-property, coz our tl--property requres masto buffer

---
 lisp/mastodon.el | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'lisp')

diff --git a/lisp/mastodon.el b/lisp/mastodon.el
index b5b1d87..13a410b 100644
--- a/lisp/mastodon.el
+++ b/lisp/mastodon.el
@@ -276,7 +276,7 @@ not, just browse the URL in the normal fashion."
   (interactive)
   (let* ((query (or query-url
                     (url-get-url-at-point)
-                    (mastodon-tl--property 'shr-url)
+                    (get-text-property (point) 'shr-url)
                     (read-string "Lookup URL: "))))
     ;; TODO: test for a likely masto link and just browse-url if not
     (save-match-data
-- 
cgit v1.2.3