From 66980ecfb36644bcdcd2c80ca10f42dccae11292 Mon Sep 17 00:00:00 2001
From: Lars Magne Ingebrigtsen <larsi@gnus.org>
Date: Sun, 7 Nov 1999 23:46:14 +0000
Subject: [PATCH] *** empty log message ***

---
 lisp/ChangeLog     |  2 ++
 lisp/nnslashdot.el | 18 +++++++++++-------
 2 files changed, 13 insertions(+), 7 deletions(-)

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index b13a90614..17e7366b6 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -2,6 +2,8 @@
 
 	* nnslashdot.el (nnslashdot-retrieve-headers): Don't fetch too
 	many articles.
+	(nnslashdot-generate-active): New function.
+	(nnslashdot-request-newgroups): Use it.
 
 	* gnus-start.el (gnus-active-to-gnus-format): Intern strings group 
 	names.
diff --git a/lisp/nnslashdot.el b/lisp/nnslashdot.el
index 433e1eaba..47b36780c 100644
--- a/lisp/nnslashdot.el
+++ b/lisp/nnslashdot.el
@@ -356,16 +356,12 @@
 	    (push (list gname articles sid) nnslashdot-groups))))
       (incf number 30))
     (nnslashdot-write-groups)
-    (save-excursion
-      (set-buffer nntp-server-buffer)
-      (erase-buffer)
-      (dolist (elem nnslashdot-groups)
-	(insert (prin1-to-string (car elem))
-		" " (number-to-string (cadr elem)) " 1 y\n")))
+    (nnslashdot-generate-active)
     t))
 
 (deffoo nnslashdot-request-newgroups (date &optional server)
-  (nnslashdot-request-list server))
+  (nnslashdot-possibly-change-server nil server)
+  (nnslashdot-generate-active))
 
 (deffoo nnslashdot-asynchronous-p ()
   nil)
@@ -449,6 +445,14 @@
 	    (format-time-string "%Y") " "
 	    (nth 4 elem))))
 
+(defun nnslashdot-generate-active ()
+  (save-excursion
+    (set-buffer nntp-server-buffer)
+    (erase-buffer)
+    (dolist (elem nnslashdot-groups)
+      (insert (prin1-to-string (car elem))
+	      " " (number-to-string (cadr elem)) " 1 y\n"))))
+
 (provide 'nnslashdot)
 
 ;;; nnslashdot.el ends here
-- 
2.25.1