From 854b7027bc390807876595d2a014e9e61abad591 Mon Sep 17 00:00:00 2001
From: marty hiatt <martianhiatus@riseup.net>
Date: Fri, 18 Oct 2024 11:38:35 +0200
Subject: images in threads: load images for single-toot and thread toot

---
 lisp/mastodon-tl.el | 8 ++++++++
 1 file changed, 8 insertions(+)

(limited to 'lisp')

diff --git a/lisp/mastodon-tl.el b/lisp/mastodon-tl.el
index 92bf0a6..b0f5981 100644
--- a/lisp/mastodon-tl.el
+++ b/lisp/mastodon-tl.el
@@ -2281,6 +2281,9 @@ ID is that of the toot to view."
                                       #'mastodon-tl--update-toot)
         (mastodon-tl--toot toot :detailed-p)
         (goto-char (point-min))
+        (when mastodon-tl--display-media-p
+          (mastodon-media--inline-images (point-min)
+                                         (point-max)))
         (mastodon-tl--goto-next-item :no-refresh)))))
 
 (defun mastodon-tl--update-toot (json)
@@ -2339,6 +2342,11 @@ view all branches of a thread."
                 (move-marker marker (point))
                 ;; print re-fetched toot:
                 (mastodon-tl--toot toot :detailed-p :thread)
+                ;; inline images only for the toot
+                ;; (`mastodon-tl--timeline' handles the rest):
+                (when mastodon-tl--display-media-p
+                  (mastodon-media--inline-images marker ;start-pos
+                                                 (point)))
                 (mastodon-tl--timeline (alist-get 'descendants context)
                                        :thread)
                 ;; put point at the toot:
-- 
cgit v1.2.3