Synch with Oort Gnus.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index b323be6..a4cae14 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,13 @@
+2002-09-06  Lars Magne Ingebrigtsen  <larsi@gnus.org>
+
+       * gnus-srvr.el (gnus-browse-make-menu-bar): Add "d".
+
+       * gnus-sum.el (gnus-summary-limit-to-unseen): New command and
+       keystroke. 
+
+       * gnus-srvr.el (gnus-browse-describe-group): New command and
+       keystroke. 
+
 2002-09-06  Katsumi Yamaoka  <yamaoka@jpl.org>
 
        * gnus-art.el (gnus-article-treat-body-boundary): Don't quote a

diff --git a/lisp/gnus-srvr.el b/lisp/gnus-srvr.el
index ff93f6b..7aea332 100644 (file)
--- a/lisp/gnus-srvr.el
+++ b/lisp/gnus-srvr.el
@@ -662,6 +662,7 @@ The following commands are available:
     "L" gnus-browse-exit
     "q" gnus-browse-exit
     "Q" gnus-browse-exit
+    "d" gnus-browse-describe-group
     "\C-c\C-c" gnus-browse-exit
     "?" gnus-browse-describe-briefly
 
@@ -677,6 +678,7 @@ The following commands are available:
        ["Subscribe" gnus-browse-unsubscribe-current-group t]
        ["Read" gnus-browse-read-group t]
        ["Select" gnus-browse-select-group t]
+       ["Describe" gnus-browse-describe-groups t]
        ["Next" gnus-browse-next-group t]
        ["Prev" gnus-browse-prev-group t]
        ["Exit" gnus-browse-exit t]))
@@ -719,22 +721,22 @@ The following commands are available:
            (delete-matching-lines gnus-ignored-newsgroups))
          (while (not (eobp))
            (ignore-errors
-             (push (cons
-                    (if (eq (char-after) ?\")
-                        (read cur)
-                      (let ((p (point)) (name ""))
-                        (skip-chars-forward "^ \t\\\\")
-                        (setq name (buffer-substring p (point)))
-                        (while (eq (char-after) ?\\)
-                          (setq p (1+ (point)))
-                          (forward-char 2)
-                          (skip-chars-forward "^ \t\\\\")
-                          (setq name (concat name (buffer-substring
-                                                   p (point)))))
-                        name))
-                    (let ((last (read cur)))
-                      (cons (read cur) last)))
-                   groups))
+            (push (cons
+                   (if (eq (char-after) ?\")
+                       (read cur)
+                     (let ((p (point)) (name ""))
+                       (skip-chars-forward "^ \t\\\\")
+                       (setq name (buffer-substring p (point)))
+                       (while (eq (char-after) ?\\)
+                         (setq p (1+ (point)))
+                         (forward-char 2)
+                         (skip-chars-forward "^ \t\\\\")
+                         (setq name (concat name (buffer-substring
+                                                  p (point)))))
+                       name))
+                   (let ((last (read cur)))
+                     (cons (read cur) last)))
+                  groups))
            (forward-line))))
       (setq groups (sort groups
                         (lambda (l1 l2)
@@ -764,18 +766,19 @@ The following commands are available:
              (list
               (format
                "Gnus: %%b {%s:%s}" (car method) (cadr method))))
-       (let ((buffer-read-only nil) charset
+       (let ((buffer-read-only nil)
+             charset
              (prefix (let ((gnus-select-method orig-select-method))
                        (gnus-group-prefixed-name "" method))))
-         (while groups
-           (setq group (car groups))
+         (dolist (group groups)
            (setq charset (gnus-group-name-charset method (car group)))
            (gnus-add-text-properties
             (point)
             (prog1 (1+ (point))
               (insert
                (format "%c%7d: %s\n"
-                       (let ((level (gnus-group-level (concat prefix (car group)))))
+                       (let ((level (gnus-group-level
+                                     (concat prefix (car group)))))
                          (cond
                           ((<= level gnus-level-subscribed) ? )
                           ((<= level gnus-level-unsubscribed) ?U)
@@ -878,6 +881,11 @@ buffer.
             (match-string-no-properties 1))
         gnus-browse-current-method)))))
 
+(defun gnus-browse-describe-group (group)
+  "Describe the current group."
+  (interactive (list (gnus-browse-group-name)))
+  (gnus-group-describe-group nil group))
+
 (defun gnus-browse-unsubscribe-group ()
   "Toggle subscription of the current group in the browse buffer."
   (let ((sub nil)
@@ -889,10 +897,6 @@ buffer.
       (unless (eq (char-after) ? )
        (setq sub t))
       (setq group (gnus-browse-group-name))
-      ;;;;
-      ;;(when (and sub
-      ;;                (cadr (gnus-gethash group gnus-newsrc-hashtb)))
-      ;;(error "Group already subscribed"))
       (if sub
          (progn
            ;; Make sure the group has been properly removed before we

diff --git a/lisp/gnus-sum.el b/lisp/gnus-sum.el
index 67e3e5e..7e372f4 100644 (file)
--- a/lisp/gnus-sum.el
+++ b/lisp/gnus-sum.el
@@ -1678,6 +1678,7 @@ increase the score of each group you read."
     "T" gnus-summary-limit-include-thread
     "d" gnus-summary-limit-exclude-dormant
     "t" gnus-summary-limit-to-age
+    "." gnus-summary-limit-to-unseen
     "x" gnus-summary-limit-to-extra
     "p" gnus-summary-limit-to-display-predicate
     "E" gnus-summary-limit-include-expunged
@@ -2267,6 +2268,7 @@ gnus-summary-show-article-from-menu-as-charset-%s" cs))))
        ["Score..." gnus-summary-limit-to-score t]
        ["Display Predicate" gnus-summary-limit-to-display-predicate t]
        ["Unread" gnus-summary-limit-to-unread t]
+       ["Unseen" gnus-summary-limit-to-unseen t]
        ["Non-dormant" gnus-summary-limit-exclude-dormant t]
        ["Articles" gnus-summary-limit-to-articles t]
        ["Pop limit" gnus-summary-pop-limit t]
@@ -7406,6 +7408,13 @@ Returns how many articles were removed."
        (gnus-summary-limit articles)
       (gnus-summary-position-point))))
 
+(defun gnus-summary-limit-to-unseen ()
+  "Limit to unseen articles."
+  (interactive)
+  (prog1
+      (gnus-summary-limit gnus-newsgroup-unseen)
+    (gnus-summary-position-point)))
+
 (defun gnus-summary-limit-include-thread (id)
   "Display all the hidden articles that is in the thread with ID in it.
 When called interactively, ID is the Message-ID of the current

diff --git a/texi/ChangeLog b/texi/ChangeLog
index 0844b79..ccd5d19 100644 (file)
--- a/texi/ChangeLog
+++ b/texi/ChangeLog
@@ -1,3 +1,8 @@
+2002-09-06  Lars Magne Ingebrigtsen  <larsi@gnus.org>
+
+       * gnus.texi (Browse Foreign Server): Addition.
+       (Limiting): Addition.articles
+
 2002-09-04  Simon Josefsson  <jas@extundo.com>
 
        * gnus.texi (Mail Source Specifiers): Fix.

diff --git a/texi/gnus-ja.texi b/texi/gnus-ja.texi
index 8dc3481..2b9622a 100644 (file)
--- a/texi/gnus-ja.texi
+++ b/texi/gnus-ja.texi
@@ -3432,6 +3432,11 @@ kill \e$B$5$l$?%0%k!<%W$rA4$FI=<($7$^$9\e(B (@code{gnus-group-list-killed})\e$B!#@\
 @findex gnus-browse-exit
 \e$B1\Mw%b!<%I\e(B (browse mode) \e$B$r=*N;$7$^$9\e(B (@code{gnus-browse-exit})\e$B!#\e(B
 
+@item d
+@kindex d (\e$B1\Mw\e(B)
+@findex gnus-browse-describe-group
+\e$B8=:_$N%0%k!<%W$r9XFI$K$7$^$9\e(B (@code{gnus-browse-describe-group})\e$B!#\e(B
+
 @item ?
 @kindex ? (\e$B1\Mw\e(B)
 @findex gnus-browse-describe-briefly
@@ -6035,6 +6040,12 @@ gnus \e$B<+BN$O2D;k5-;v$r4|8B@Z$l>C5n$7$^$;$s\e(B) \e$B$N$G!"1J1s$K5-;v$rJ]B8$7$F$*
 \e$B$9\e(B (@code{gnus-summary-pop-limit})\e$B!#$b$7@\F,0z?t$rM?$($i$l$l$P!"$9$Y$F$N\e(B
 \e$B@)8B$r%9%?%C%/$+$i<h$j=P$7$^$9!#\e(B
 
+@item / .
+@kindex / . (Summary)
+@findex gnus-summary-limit-to-unseen
+\e$B35N,%P%C%U%!$r$^$@FI$^$l$?$3$H$,L5$$5-;v$K@)8B$7$^\e(B
+\e$B$9\e(B (@code{gnus-summary-limit-to-unseen})\e$B!#\e(B
+
 @item / v
 @kindex / v (\e$B35N,\e(B)
 @findex gnus-summary-limit-to-score

diff --git a/texi/gnus.texi b/texi/gnus.texi
index 249fb31..5a30a69 100644 (file)
--- a/texi/gnus.texi
+++ b/texi/gnus.texi
@@ -3352,6 +3352,11 @@ subscribe to it (@code{gnus-browse-unsubscribe-current-group}).
 @findex gnus-browse-exit
 Exit browse mode (@code{gnus-browse-exit}).
 
+@item d
+@kindex d (Browse)
+@findex gnus-browse-describe-group
+Describe the current group (@code{gnus-browse-describe-group}).
+
 @item ?
 @kindex ? (Browse)
 @findex gnus-browse-describe-briefly
@@ -6067,6 +6072,12 @@ Pop the previous limit off the stack and restore it
 (@code{gnus-summary-pop-limit}).  If given a prefix, pop all limits off
 the stack.
 
+@item / .
+@kindex / . (Summary)
+@findex gnus-summary-limit-to-unseen
+Limit the summary buffer to the unseen articles
+(@code{gnus-summary-limit-to-unseen}).
+
 @item / v
 @kindex / v (Summary)
 @findex gnus-summary-limit-to-score