* gnus-util.el (gnus-goto-colon): Move to the beginning of the visual
lines. This makes summary commands with hidden threads work more
reliably.
2012-12-26 Lars Ingebrigtsen <larsi@gnus.org>
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).
* gnus-cite.el (gnus-article-hide-citation-maybe): Leave an expansion
button to mark the hidden citations (bug#9395).
(t
(list face oldval)))))))))
(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
(provide 'gnus-compat)
;; gnus-compat.el ends here
(defun gnus-goto-colon ()
(defun gnus-goto-colon ()
+ (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)
(let ((eol (point-at-eol)))
(goto-char (or (text-property-any (point) eol 'gnus-position t)
(search-forward ":" eol t)