* gnus-sum.el (gnus-summary-hide-thread): Fix bug where moving to hide the thread...

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 61bfa87..0c856e9 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/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-sum.el b/lisp/gnus-sum.el
index 53c2e5e..3ec4437 100644 (file)
--- a/lisp/gnus-sum.el
+++ b/lisp/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))))