[elpa] externals/ement d890bf08dd 5/5: Fix: (ement-room-mwheel-scroll) Don't fetch at eob

[ELPA Syncer]

branch: externals/ement
commit d890bf08ddba3c493cedad1c341d22c9817bc796
Merge: b8356417ff e3d98c75f6
Author: Adam Porter <adam@alphapapa.net>
Commit: Adam Porter <adam@alphapapa.net>

    Fix: (ement-room-mwheel-scroll) Don't fetch at eob
    
    Thanks to Steven Allen (@Stebalien).
---
 README.org    | 1 +
 ement-room.el | 7 +++----
 2 files changed, 4 insertions(+), 4 deletions(-)

diff --git a/README.org b/README.org
index b87ad8efbb..6397dbcdc6 100644
--- a/README.org
+++ b/README.org
@@ -310,6 +310,7 @@ Note that, while ~matrix-client~ remains usable, and 
probably will for some time
 + Extra indentation of some membership events.  (Thanks to 
[[https://github.com/Stebalien][Steven Allen]].)
 + Customization group for faces.
 + Don't reinitialize ~ement-room-list-mode~ when room list buffer is 
refreshed.  ([[https://github.com/alphapapa/ement.el/issues/146][#146]].  
Thanks to [[https://github.com/treed][Ted Reed]] for reporting.)
++ Don't fetch old events when scrolling to the bottom of a room buffer (only 
when scrolling to the top).  (Thanks to [[https://github.com/Stebalien][Steven 
Allen]].)
 
 ** 0.9.3
 
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.