Make `backtab' in the summary buffer select the previous link

* lisp/gnus-sum.el (gnus-summary-widget-backward): New function and
keystroke.

diff --git a/GNUS-NEWS b/GNUS-NEWS
index 2b2059f..f7bcd56 100644 (file)
--- a/GNUS-NEWS
+++ b/GNUS-NEWS
@@ -16,7 +16,10 @@ For older news, see Gnus info node "New Features".
    and the files inside the packages will be displayed as MIME parts.
 
 ** shr has a new command `z' that cycles through image sizes.
-   
+
+** `backtab' in the summary buffer now selects the previous link in
+   the article buffer.
+
 * For older news, see Gnus info node "New Features".
 
 ----------------------------------------------------------------------

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index b34cccc..db71505 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,8 @@
 2012-02-02  Lars Ingebrigtsen  <larsi@gnus.org>
 
+       * gnus-sum.el (gnus-summary-widget-backward): New function and
+       keystroke.
+
        * gnus-compat.el: More the compat functions more compatible.
 
        * shr.el (shr-put-image): Remove underlines from sliced images.

diff --git a/lisp/gnus-sum.el b/lisp/gnus-sum.el
index d0a582e..c04bf7a 100644 (file)
--- a/lisp/gnus-sum.el
+++ b/lisp/gnus-sum.el
@@ -1917,6 +1917,7 @@ increase the score of each group you read."
   "x" gnus-summary-limit-to-unread
   "s" gnus-summary-isearch-article
   [tab] gnus-summary-widget-forward
+  [backtab] gnus-summary-widget-backward
   "t" gnus-summary-toggle-header
   "g" gnus-summary-show-article
   "l" gnus-summary-goto-last-article
@@ -2081,6 +2082,7 @@ increase the score of each group you read."
   "g" gnus-summary-show-article
   "s" gnus-summary-isearch-article
   [tab] gnus-summary-widget-forward
+  [backtab] gnus-summary-widget-forward
   "P" gnus-summary-print-article
   "S" gnus-sticky-article
   "M" gnus-mailing-list-insinuate
@@ -9262,6 +9264,17 @@ With optional ARG, move across that many fields."
   (select-window (gnus-get-buffer-window gnus-article-buffer))
   (widget-forward arg))
 
+(defun gnus-summary-widget-backward (arg)
+  "Move point to the previous 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))
+  (unless (widget-at (point))
+    (goto-char (point-max)))
+  (widget-backward 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."