From 638045a2b2e76d506eab61f7aca23b5439299c39 Mon Sep 17 00:00:00 2001
From: marty hiatt <martianhiatus@riseup.net>
Date: Tue, 4 Jun 2024 17:19:54 +0200
Subject: add remove-overlays to with-mastodon-buffer macro

---
 lisp/mastodon-profile.el | 1 -
 lisp/mastodon-tl.el      | 2 +-
 2 files changed, 1 insertion(+), 2 deletions(-)

diff --git a/lisp/mastodon-profile.el b/lisp/mastodon-profile.el
index 069334a..de16b7d 100644
--- a/lisp/mastodon-profile.el
+++ b/lisp/mastodon-profile.el
@@ -645,7 +645,6 @@ MAX-ID is a flag to include the max_id pagination parameter."
            (relationships (mastodon-profile--relationships-get .id)))
       (with-mastodon-buffer buffer #'mastodon-mode nil
         (mastodon-profile-mode)
-        (remove-overlays)
         (setq mastodon-profile--account account)
         (mastodon-tl--set-buffer-spec buffer endpoint update-function
                                       link-header args nil max-id-str)
diff --git a/lisp/mastodon-tl.el b/lisp/mastodon-tl.el
index 62e4c81..166a0a4 100644
--- a/lisp/mastodon-tl.el
+++ b/lisp/mastodon-tl.el
@@ -323,6 +323,7 @@ than `pop-to-buffer'."
      (let ((inhibit-read-only t))
        (erase-buffer)
        (funcall ,mode-fun)
+       (remove-overlays) ; video overlays
        (if ,other-window
            (switch-to-buffer-other-window ,buffer)
          (pop-to-buffer ,buffer '(display-buffer-same-window)))
@@ -2000,7 +2001,6 @@ view all branches of a thread."
               ;; if we have a thread:
               (with-mastodon-buffer buffer #'mastodon-mode nil
                 (let ((marker (make-marker)))
-                  (remove-overlays) ; video overlays
                   (mastodon-tl--set-buffer-spec buffer endpoint
                                                 #'mastodon-tl--thread)
                   (mastodon-tl--timeline (alist-get 'ancestors context) :thread)
-- 
cgit v1.2.3