From 150f4c34b85724a0dc389ce8a1e3bea52ddf1f39 Mon Sep 17 00:00:00 2001
From: marty hiatt <martianhiatus [a t] riseup [d o t] net>
Date: Thu, 6 Jul 2023 16:53:03 +0200
Subject: mastodon-tl--scroll-up-command

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

(limited to 'lisp/mastodon-tl.el')

diff --git a/lisp/mastodon-tl.el b/lisp/mastodon-tl.el
index f7f000b..44365bc 100644
--- a/lisp/mastodon-tl.el
+++ b/lisp/mastodon-tl.el
@@ -341,6 +341,15 @@ Optionally start from POS."
           (mastodon-tl--message-help-echo))
       (funcall refresh))))
 
+(defun mastodon-tl--scroll-up-command ()
+  "Call `scroll-up-command'.
+If we hit `point-max', call `mastodon-tl--more' then `scroll-up-command'."
+  (interactive)
+  (if (not (equal (point) (point-max)))
+      (scroll-up-command)
+    (mastodon-tl--more)
+    (scroll-up-command)))
+
 (defun mastodon-tl--goto-next-toot ()
   "Jump to next toot header."
   (interactive)
-- 
cgit v1.2.3