2000-11-10 17:11:22 ShengHuo ZHU <zsh@cs.rochester.edu>

[gnus] / lisp / gnus-srvr.el

diff --git a/lisp/gnus-srvr.el b/lisp/gnus-srvr.el
index b217086..8182382 100644 (file)
--- a/lisp/gnus-srvr.el
+++ b/lisp/gnus-srvr.el
@@ -618,7 +618,8 @@ The following commands are available:
                           (setq name (concat name (buffer-substring
                                                    p (point)))))
                         name))
-                    (max 0 (- (1+ (read cur)) (read cur))))
+                    (let ((last (read cur)))
+                      (cons (read cur) last)))
                    groups))
            (forward-line))))
       (setq groups (sort groups
@@ -626,15 +627,12 @@ The following commands are available:
                           (string< (car l1) (car l2)))))
       (if gnus-server-browse-in-group-buffer
          (let* ((gnus-select-method orig-select-method)
-                (gnus-server-browse-hashtb 
-                 (gnus-make-hashtable (length groups)))
                 (gnus-group-listed-groups 
                  (mapcar (lambda (group) 
                            (let ((name
                                   (gnus-group-prefixed-name 
                                    (car group) method)))
-                             (gnus-sethash name (cdr group)
-                                           gnus-server-browse-hashtb)
+                             (gnus-set-active name (cdr group))
                              name))
                          groups)))
            (gnus-configure-windows 'group)
@@ -662,14 +660,16 @@ The following commands are available:
               (insert
                (format "%c%7d: %s\n" 
                        (let ((level
-                              (gnus-group-level
-                               (gnus-group-prefixed-name (car group) method))))
-                       (cond 
-                        ((<= level gnus-level-subscribed) ? )
-                        ((<= level gnus-level-unsubscribed) ?U)
-                        ((= level gnus-level-zombie) ?Z)
-                        (t ?K)))
-                       (cdr group)
+                              (let ((gnus-select-method orig-select-method))
+                                (gnus-group-level
+                                 (gnus-group-prefixed-name (car group) 
+                                                           method)))))
+                             (cond 
+                              ((<= level gnus-level-subscribed) ? )
+                              ((<= level gnus-level-unsubscribed) ?U)
+                              ((= level gnus-level-zombie) ?Z)
+                              (t ?K)))
+                       (max 0 (- (1+ (cddr group)) (cadr group)))
                        (gnus-group-name-decode (car group) charset))))
             (list 'gnus-group (car group)))
            (setq groups (cdr groups))))