Gnus-browse-foreign-server

1999-07-05  Simon Josefsson  

	* gnus-srvr.el (gnus-browse-foreign-server): Use read.

--- /tmp/jas/pgnus-0.91/lisp/gnus-srvr.el       Sun Jul  4 08:21:13 1999
+++ pgnus-0.91/lisp/gnus-srvr.el        Mon Jul  5 11:42:17 1999
@@ -592,11 +592,9 @@
          (goto-char (point-min))
          (unless (string= gnus-ignored-newsgroups "")
            (delete-matching-lines gnus-ignored-newsgroups))
-         (while (re-search-forward
-                 "\\(^[^ \t]+\\)[ \t]+[0-9]+[ \t]+[0-9]+" nil t)
-           (goto-char (match-end 1))
+         (while (and (not (eobp)) (forward-line))
            (ignore-errors
-             (push (cons (match-string 1)
+             (push (cons (read cur)
                          (max 0 (- (1+ (read cur)) (read cur))))
                    groups)))))
       (setq groups (sort groups