[elpa] externals/ement 4f399a63b1 3/5: fix: only autoload when scrolling past the top

[ELPA Syncer]

branch: externals/ement
commit 4f399a63b1d6bde8bfdb8923eb7d142df6a12c73
Author: Steven Allen <steven@stebalien.com>
Commit: Adam Porter <adam@alphapapa.net>

    fix: only autoload when scrolling past the top
    
    Previously, this would attempt to retrieve old events whenever scrolling
    did nothing. Even when we were at the bottom of the buffer.
---
 ement-room.el | 7 +++----
 1 file changed, 3 insertions(+), 4 deletions(-)

diff --git a/ement-room.el b/ement-room.el
index 3708734435..772111cb4a 100644
--- a/ement-room.el
+++ b/ement-room.el
@@ -1398,10 +1398,9 @@ see."
   "Scroll according to EVENT, loading earlier messages when at top."
   (interactive "e")
   (with-selected-window (posn-window (event-start event))
-    (let ((start (window-start)))
-      (mwheel-scroll event)
-      (when (= start (window-start))
-        (call-interactively #'ement-room-retro)))))
+    (mwheel-scroll event)
+    (when (= (point-min) (window-start))
+      (call-interactively #'ement-room-retro))))
 
 ;; TODO: Unify these retro-loading functions.