From: Teodor Zlatanov Date: Fri, 20 May 2011 01:00:46 +0000 (+0000) Subject: gnus-sum.el (gnus-summary-hide-thread): Fix bug where moving to hide the thread moves... X-Git-Tag: emacs-pretest-24.0.90~104^2~618^2~236 X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=b018a6c910d3b0bce7286485ea74e4925ffe53da;p=emacs.git gnus-sum.el (gnus-summary-hide-thread): Fix bug where moving to hide the thread moves us backwards and so we loop forever. --- 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 + + * 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 * 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))))