From 4d3a1b5bc48616f9a16694c1129e9862d6de5cd8 Mon Sep 17 00:00:00 2001 From: Julien Danjou Date: Thu, 25 Nov 2010 11:08:07 +0100 Subject: [PATCH 1/1] gnus-sum: add gnus-summary-widget-forward Signed-off-by: Julien Danjou --- lisp/ChangeLog | 4 ++++ lisp/gnus-sum.el | 11 +++++++++++ 2 files changed, 15 insertions(+) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 28a9d72a9..225e18c21 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,7 @@ +2010-11-25 Julien Danjou + + * gnus-sum.el (gnus-summary-widget-forward): Add, and bind to [tab]. + 2010-11-25 Lars Magne Ingebrigtsen * shr-color.el (shr-color-visible): Don't bug out if the colour names diff --git a/lisp/gnus-sum.el b/lisp/gnus-sum.el index 72b6d40de..f6c8d0f8f 100644 --- a/lisp/gnus-sum.el +++ b/lisp/gnus-sum.el @@ -1903,6 +1903,7 @@ increase the score of each group you read." "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 @@ increase the score of each group you read." "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 @@ Obeys the standard process/prefix convention." (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." -- 2.25.1