Implement nnimap-request-newgroups.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index ec0ef59..512494c 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -2,6 +2,7 @@
 
        * nnimap.el (nnimap-update-info): Ignore groups that have no UIDNEXT
        values.  This sometimes happens on some groups that have no info.
+       (nnimap-request-newgroups): New function.
 
 2010-10-01  Teodor Zlatanov  <tzz@lifelogs.com>
 

diff --git a/lisp/nnimap.el b/lisp/nnimap.el
index ff1d2b8..68ee9d4 100644 (file)
--- a/lisp/nnimap.el
+++ b/lisp/nnimap.el
@@ -912,6 +912,16 @@ textual parts.")
                                  (or highest exists)))))))))
        t))))
 
+(deffoo nnimap-request-newgroups (date &optional server)
+  (nnimap-possibly-change-group nil server)
+  (with-current-buffer nntp-server-buffer
+    (erase-buffer)
+    (dolist (group (with-current-buffer (nnimap-buffer)
+                    (nnimap-get-groups)))
+      (unless (assoc group nnimap-current-infos)
+       ;; Insert dummy numbers here -- they don't matter.
+       (insert (format "%S 0 1 y\n" group))))))
+
 (deffoo nnimap-retrieve-group-data-early (server infos)
   (when (nnimap-possibly-change-group nil server)
     (with-current-buffer (nnimap-buffer)