Mercurial > emacs
changeset 111710:bcb41b2787e8
gnus-sum.el (gnus-summary-widget-forward): Add, and bind to [tab].
| author | Katsumi Yamaoka <yamaoka@jpl.org> |
|---|---|
| date | Thu, 25 Nov 2010 11:14:14 +0000 |
| parents | 4483c6423ad1 |
| children | c4f2770ebd72 |
| files | lisp/gnus/ChangeLog lisp/gnus/gnus-sum.el |
| diffstat | 2 files changed, 15 insertions(+), 0 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/gnus/ChangeLog Thu Nov 25 07:46:51 2010 +0000 +++ b/lisp/gnus/ChangeLog Thu Nov 25 11:14:14 2010 +0000 @@ -1,3 +1,7 @@ +2010-11-25 Julien Danjou <julien@danjou.info> + + * gnus-sum.el (gnus-summary-widget-forward): Add, and bind to [tab]. + 2010-11-25 Lars Magne Ingebrigtsen <larsi@gnus.org> * shr-color.el (shr-color-visible): Don't bug out if the colour names
--- a/lisp/gnus/gnus-sum.el Thu Nov 25 07:46:51 2010 +0000 +++ b/lisp/gnus/gnus-sum.el Thu Nov 25 11:14:14 2010 +0000 @@ -1903,6 +1903,7 @@ "a" gnus-summary-post-news "x" gnus-summary-limit-to-unread "s" gnus-summary-isearch-article + [tab] gnus-summary-widget-forward "t" gnus-summary-toggle-header "g" gnus-summary-show-article "l" gnus-summary-goto-last-article @@ -2066,6 +2067,7 @@ "W" gnus-warp-to-article "g" gnus-summary-show-article "s" gnus-summary-isearch-article + [tab] gnus-summary-widget-forward "P" gnus-summary-print-article "S" gnus-sticky-article "M" gnus-mailing-list-insinuate @@ -9082,6 +9084,15 @@ (t (error "Couldn't select virtual nndoc group"))))) +(defun gnus-summary-widget-forward (arg) + "Move point to the next field or button in the article. +With optional ARG, move across that many fields." + (interactive "p") + (gnus-summary-select-article) + (gnus-configure-windows 'article) + (select-window (gnus-get-buffer-window gnus-article-buffer)) + (widget-forward arg)) + (defun gnus-summary-isearch-article (&optional regexp-p) "Do incremental search forward on the current article. If REGEXP-P (the prefix) is non-nil, do regexp isearch."