From: yamaoka <yamaoka>
Date: Tue, 8 Nov 2005 08:52:38 +0000 (+0000)
Subject: Synch to No Gnus 200511080839.
X-Git-Tag: t-gnus-6_17_4-quimby-~253
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=68b800bcd360a7ce4e690bbc9015225fbc609b1b;p=elisp%2Fgnus.git-

Synch to No Gnus 200511080839.
---

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 97897c8..53ccfad 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,9 @@
+2005-11-08  Romain Francoise  <romain@orebokech.com>
+
+	* gnus-sum.el (gnus-summary-catchup-and-goto-prev-group): New function.
+	(gnus-summary-exit-map): Bind to `Z p'.
+	(gnus-summary-make-menu-bar): Add menu item.
+
 2005-11-02  Reiner Steib  <Reiner.Steib@gmx.de>
 
 	* gnus-art.el (gnus-article-treat-custom): Add `first'.
diff --git a/lisp/gnus-sum.el b/lisp/gnus-sum.el
index 38c559c..dbf4c86 100644
--- a/lisp/gnus-sum.el
+++ b/lisp/gnus-sum.el
@@ -1925,6 +1925,7 @@ increase the score of each group you read."
   "Q" gnus-summary-exit
   "Z" gnus-summary-exit
   "n" gnus-summary-catchup-and-goto-next-group
+  "p" gnus-summary-catchup-and-goto-prev-group
   "R" gnus-summary-reselect-current-group
   "G" gnus-summary-rescan-group
   "N" gnus-summary-next-group
@@ -2596,6 +2597,7 @@ gnus-summary-show-article-from-menu-as-charset-%s" cs))))
 	      '(:help "Mark unread articles in this group as read, then exit"))]
 	 ["Catchup all and exit" gnus-summary-catchup-all-and-exit t]
 	 ["Catchup and goto next" gnus-summary-catchup-and-goto-next-group t]
+	 ["Catchup and goto prev" gnus-summary-catchup-and-goto-prev-group t]
 	 ["Exit group" gnus-summary-exit
 	  ,@(if (featurep 'xemacs) '(t)
 	      '(:help "Exit current group, return to group selection mode"))]
@@ -10662,6 +10664,15 @@ read."
     (gnus-summary-catchup all))
   (gnus-summary-next-group))
 
+(defun gnus-summary-catchup-and-goto-prev-group (&optional all)
+  "Mark all articles in this group as read and select the previous group.
+If given a prefix, mark all articles, unread as well as ticked, as
+read."
+  (interactive "P")
+  (save-excursion
+    (gnus-summary-catchup all))
+  (gnus-summary-next-group nil nil t))
+
 ;;;
 ;;; with article
 ;;;
diff --git a/texi/ChangeLog b/texi/ChangeLog
index 40a7dad..f8bcaf5 100644
--- a/texi/ChangeLog
+++ b/texi/ChangeLog
@@ -1,3 +1,8 @@
+2005-11-08  Romain Francoise  <romain@orebokech.com>
+
+	* gnus.texi (Exiting the Summary Buffer): Add new function
+	`gnus-summary-catchup-and-goto-prev-group', bound to `Z p'.
+
 2005-11-08  Katsumi Yamaoka  <yamaoka@jpl.org>
 
 	* gnus.texi (XVarious): Revert description of gnus-use-toolbar.
diff --git a/texi/gnus-ja.texi b/texi/gnus-ja.texi
index a527a9c..5dcd2c0 100644
--- a/texi/gnus-ja.texi
+++ b/texi/gnus-ja.texi
@@ -10011,6 +10011,12 @@ gnus の info の節 (node) に移動します (@code{gnus-info-find-no
 すべての記事に既読の印を付けて次のグループへ移動しま
 す (@code{gnus-summary-catchup-and-goto-next-group})。
 
+@item Z p
+@kindex Z p (概略)
+@findex gnus-summary-catchup-and-goto-prev-group
+すべての記事に既読の印を付けて前のグループへ移動しま
+す (@code{gnus-summary-catchup-and-goto-prev-group})。
+
 @item Z R
 @itemx C-x C-s
 @kindex Z R (概略)
@@ -22235,13 +22241,13 @@ Picon のファイル名として試してみる順に並べられた拡張子のリストです。ディ
 @table @code
 @item gnus-use-toolbar
 @vindex gnus-use-toolbar
-ツールバーを表示しないのならば、この変数を @code{nil} に設定して下さい。
-ツールバーを上、下、右、または左に表示するのならば、この変数をそれぞ
-れ @code{top-toolbar}, @code{bottom-toolbar}, @code{right-toolbar}, また
-は @code{left-toolbar} に設定して下さい。この変数は XEmacs にツールバー
-をどうやって表示するかを指示するためのものではなく、XEmacs がツールバー
-をどうやって表示するかを gnus に言うためのものです。ディフォルト
-は @code{default-toolbar} です。
+@code{nil} だったらツールバーを表示しません。非-@code{nil} の場合、それ
+は @code{default-toolbar}, @code{top-toolbar}, @code{bottom-toolbar},
+@code{right-toolbar} または @code{left-toolbar} の中の一つでなければなり
+ません。
+
+訳注: 現在この変数による制御は有効ではありません。かつて改善が試みられま
+したが、今のところ解決を見ていません。
 
 @item gnus-group-toolbar
 @vindex gnus-group-toolbar
diff --git a/texi/gnus.texi b/texi/gnus.texi
index 142408d..66fddd0 100644
--- a/texi/gnus.texi
+++ b/texi/gnus.texi
@@ -10564,6 +10564,12 @@ Mark all articles, even the ticked ones, as read and then exit
 Mark all articles as read and go to the next group
 (@code{gnus-summary-catchup-and-goto-next-group}).
 
+@item Z p
+@kindex Z p (Summary)
+@findex gnus-summary-catchup-and-goto-prev-group
+Mark all articles as read and go to the previous group
+(@code{gnus-summary-catchup-and-goto-prev-group}).
+
 @item Z R
 @itemx C-x C-s
 @kindex Z R (Summary)