(nndoc-retrieve-groups): New function.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index d0c6bc6..b6594a1 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,7 @@
 2010-09-29  Lars Magne Ingebrigtsen  <larsi@gnus.org>
 
+       * nndoc.el (nndoc-retrieve-groups): New function.
+
        * nnimap.el (nnimap-split-incoming-mail): If nnimap-split-methods is
        `default', use nnmail-split-methods.
        (nnimap-request-article): Downcase the NILs so that they are nil.

diff --git a/lisp/nndoc.el b/lisp/nndoc.el
index 15e5e82..588eeb1 100644 (file)
--- a/lisp/nndoc.el
+++ b/lisp/nndoc.el
@@ -280,6 +280,11 @@ from the document.")
      (t
       (nnheader-insert "211 %d %d %d %s\n" number 1 number group)))))
 
+(deffoo nndoc-retrieve-groups (groups &optional server)
+  (dolist (group groups)
+    (nndoc-request-group group server))
+  t)
+
 (deffoo nndoc-request-type (group &optional article)
   (cond ((not article) 'unknown)
        (nndoc-post-type nndoc-post-type)