[Emacs-diffs] /srv/bzr/emacs/trunk r104293: gnus-sum.el (gnus-summary-hide-thread): Fix bug where moving to hide the thread moves us backwards and so we loop forever.

[Katsumi Yamaoka]

------------------------------------------------------------
revno: 104293
author: Teodor Zlatanov <address@hidden>
committer: Katsumi Yamaoka <address@hidden>
branch nick: trunk
timestamp: Fri 2011-05-20 01:00:46 +0000
message:
  gnus-sum.el (gnus-summary-hide-thread): Fix bug where moving to hide the 
thread moves us backwards and so we loop forever.
modified:
  lisp/gnus/ChangeLog
  lisp/gnus/gnus-sum.el

=== modified file 'lisp/gnus/ChangeLog'
--- a/lisp/gnus/ChangeLog       2011-05-20 00:03:51 +0000
+++ b/lisp/gnus/ChangeLog       2011-05-20 01:00:46 +0000
@@ -1,3 +1,8 @@
+2011-05-20  Teodor Zlatanov  <address@hidden>
+
+       * 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  <address@hidden>
 
        * mm-bodies.el (mm-decode-content-transfer-encoding): Allow leading

=== modified file 'lisp/gnus/gnus-sum.el'
--- a/lisp/gnus/gnus-sum.el     2011-05-16 22:05:15 +0000
+++ b/lisp/gnus/gnus-sum.el     2011-05-20 01:00:46 +0000
@@ -11569,7 +11569,10 @@
              (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))))