Make summary movement with hidden threads more predictable

* gnus-util.el (gnus-goto-colon): Move to the beginning of the visual
lines.  This makes summary commands with hidden threads work more
reliably.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index e746685..12b180f 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,9 @@
 2012-12-26  Lars Ingebrigtsen  <larsi@gnus.org>
 
+       * gnus-util.el (gnus-goto-colon): Move to the beginning of the visual
+       lines.  This makes summary commands with hidden threads work more
+       reliably.
+
        * gnus-cite.el (gnus-article-hide-citation-maybe): Leave an expansion
        button to mark the hidden citations (bug#9395).
 

diff --git a/lisp/gnus-compat.el b/lisp/gnus-compat.el
index 3241cd1..f62a394 100644 (file)
--- a/lisp/gnus-compat.el
+++ b/lisp/gnus-compat.el
@@ -122,6 +122,13 @@ TRASH is ignored."
                       (t
                        (list face oldval)))))))))
 
+(unless (fboundp 'move-beginning-of-line)
+  (defun move-beginning-of-line (arg)
+    (interactive "p")
+    (unless (= arg 1)
+      (forward-line arg))
+    (beginning-of-line)))
+
 (provide 'gnus-compat)
 
 ;; gnus-compat.el ends here

diff --git a/lisp/gnus-util.el b/lisp/gnus-util.el
index 1c22bdf..705a9e0 100644 (file)
--- a/lisp/gnus-util.el
+++ b/lisp/gnus-util.el
@@ -225,7 +225,7 @@ is slower."
 
 
 (defun gnus-goto-colon ()
-  (beginning-of-line)
+  (move-beginning-of-line 1)
   (let ((eol (point-at-eol)))
     (goto-char (or (text-property-any (point) eol 'gnus-position t)
                   (search-forward ":" eol t)