(nnimap-request-create-group): Implement.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index c402720..efca5e1 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,7 @@
+2010-09-21  Lars Magne Ingebrigtsen  <larsi@gnus.org>
+
+       * nnimap.el (nnimap-request-create-group): Implement.
+
 2010-09-21  Julien Danjou  <julien@danjou.info>
 
        * gnus-html.el (gnus-html-image-cache-ttl): Add new variable.

diff --git a/lisp/nnimap.el b/lisp/nnimap.el
index 434ad01..ae9364b 100644 (file)
--- a/lisp/nnimap.el
+++ b/lisp/nnimap.el
@@ -431,6 +431,11 @@ textual parts.")
            low high group))))
       t)))
 
+(deffoo nnimap-request-create-group (group &optional server args)
+  (when (nnimap-possibly-change-group nil server)
+    (with-current-buffer (nnimap-buffer)
+      (car (nnimap-command "CREATE %S" (utf7-encode group t))))))
+
 (deffoo nnimap-request-delete-group (group &optional force server)
   (when (nnimap-possibly-change-group nil server)
     (with-current-buffer (nnimap-buffer)