Mercurial > emacs
diff lisp/gnus/gnus-sum.el @ 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 | cad125981c0f |
children | 7bb815042e61 |
line wrap: on
line diff
--- 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."