From: Alex Bochannek <alex@bochannek.com>
Date: Sat, 19 Sep 2020 14:49:38 +0000 (+0200)
Subject: Fix gnus-summary-catchup-from-here edge case
X-Git-Tag: emacs-28.0.90~6006
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=50b446a6b32166b15939d7285e35f70f1994b276;p=emacs.git

Fix gnus-summary-catchup-from-here edge case

* lisp/gnus/gnus-sum.el (gnus-summary-catchup-from-here): Make the
command work in the final line in the buffer, too (bug#43496).
---

diff --git a/lisp/gnus/gnus-sum.el b/lisp/gnus/gnus-sum.el
index 2f0ea0c58f8..8e27a94e5b8 100644
--- a/lisp/gnus/gnus-sum.el
+++ b/lisp/gnus/gnus-sum.el
@@ -11537,7 +11537,7 @@ If ALL is non-nil, also mark ticked and dormant articles as read."
     (gnus-save-hidden-threads
       (let ((beg (point)))
 	;; We check that there are unread articles.
-	(when (or all (gnus-summary-find-next))
+	(when (or all (gnus-summary-last-article-p) (gnus-summary-find-next))
 	  (gnus-summary-catchup all t beg nil t)))))
   (gnus-summary-position-point))