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

diff --git a/lisp/gnus/ChangeLog b/lisp/gnus/ChangeLog
index 2b51637e3d1381614327d38b611e5b4f0431a94e..9eebb585c1478ae4a2fffb7781ea8114b41c8602 100644 (file)
--- 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 53c2e5e596f6fa9a56a211551ae0015c346f6a02..3ec443743dfa8301570f393f44c3bf4068f1cb24 100644 (file)
--- 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))))