From cadb861eea26bc60d9235e2eed912907511999eb Mon Sep 17 00:00:00 2001 From: Lars Ingebrigtsen Date: Wed, 26 Dec 2012 14:46:49 +0100 Subject: [PATCH] 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. --- lisp/ChangeLog | 4 ++++ lisp/gnus-compat.el | 7 +++++++ lisp/gnus-util.el | 2 +- 3 files changed, 12 insertions(+), 1 deletion(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index e746685a0..12b180f3b 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,5 +1,9 @@ 2012-12-26 Lars Ingebrigtsen + * 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 3241cd1ae..f62a3942d 100644 --- 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 1c22bdfd2..705a9e0de 100644 --- 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) -- 2.25.1