From: Lars Ingebrigtsen <larsi@gnus.org>
Date: Mon, 24 Dec 2012 16:08:55 +0000 (+0100)
Subject: Fix point movement when hiding threads
X-Git-Url: http://cgit.sxemacs.org/?a=commitdiff_plain;h=cbe6e76bf806b22879767af60fc37d26a8ae2af2;p=gnus

Fix point movement when hiding threads

* gnus-sum.el (gnus-summary-hide-thread): If point were further to the
right than four characters, this command would move point to
`point-max'.  Don't do that.
---

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index eb876d125..89b6c67ae 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,9 @@
 2012-12-24  Lars Ingebrigtsen  <larsi@gnus.org>
 
+	* gnus-sum.el (gnus-summary-hide-thread): If point were further to the
+	right than four characters, this command would move point to
+	`point-max'.  Don't do that.
+
 	* gnus-group.el (gnus-group-read-ephemeral-group): Set the active data
 	to nil to allow re-selecting groups that gain articles.
 	(gnus-bug-group-download-format-alist): Update the URL.
diff --git a/lisp/gnus-sum.el b/lisp/gnus-sum.el
index 4b00e9910..91f369b1c 100644
--- a/lisp/gnus-sum.el
+++ b/lisp/gnus-sum.el
@@ -11658,10 +11658,10 @@ If PREDICATE is supplied, threads that satisfy this predicate
 will not be hidden.
 Returns nil if no threads were there to be hidden."
   (interactive)
+  (beginning-of-line)
   (let ((start (point))
 	(starteol (line-end-position))
 	(article (gnus-summary-article-number)))
-    (goto-char start)
     ;; Go forward until either the buffer ends or the subthread ends.
     (when (and (not (eobp))
 	       (or (zerop (gnus-summary-next-thread 1 t))