gnus-sum.el (gnus-summary-hide-thread): Fix bug where moving to hide the thread moves us backwards and so we loop forever.

2 files changed, 9 insertions, 1 deletions

diff --git a/lisp/gnus/ChangeLog b/lisp/gnus/ChangeLog
index 2b51637e3d1..9eebb585c14 100644
--- a/lisp/gnus/ChangeLog
+++ b/lisp/gnus/ChangeLog
@@ -1,3 +1,8 @@
+2011-05-20  Teodor Zlatanov  <tzz@lifelogs.com>
+
+        * gnus-sum.el (gnus-summary-hide-thread): Fix bug where moving to hide
+        the thread moves us backwards and so we loop forever.
+
 2011-05-19  Katsumi Yamaoka  <yamaoka@jpl.org>
 
         * mm-bodies.el (mm-decode-content-transfer-encoding): Allow leading
diff --git a/lisp/gnus/gnus-sum.el b/lisp/gnus/gnus-sum.el
index 53c2e5e596f..3ec443743df 100644
--- a/lisp/gnus/gnus-sum.el
+++ b/lisp/gnus/gnus-sum.el
@@ -11569,7 +11569,10 @@ Returns nil if no threads were there to be hidden."
               (let ((ol (gnus-make-overlay starteol (point) nil t nil)))
                 (gnus-overlay-put ol 'invisible 'gnus-sum)
                 (gnus-overlay-put ol 'evaporate t)))
-            (gnus-summary-goto-subject article))
+            (gnus-summary-goto-subject article)
+            (when (> start (point))
+              (message "Hiding the thread moved us backwards, aborting!")
+              (goto-char (point-max))))
         (goto-char start)
         nil))))