Implement group deletion.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 89339d3..509ebad 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,9 @@
+2010-09-20  Lars Magne Ingebrigtsen  <larsi@gnus.org>
+
+       * nnimap.el (nnimap-request-group): Don't select the imap buffer before
+       opening the server.
+       (nnimap-request-delete-group): Implement group deletion.
+

 2010-09-20  David Edmondson  <dme@dme.org>  (tiny change)
 
        * nnimap.el (nnimap-request-set-mark): Don't wait for a response when
 2010-09-20  David Edmondson  <dme@dme.org>  (tiny change)
 
        * nnimap.el (nnimap-request-set-mark): Don't wait for a response when

diff --git a/lisp/nnimap.el b/lisp/nnimap.el
index 2de09b1..c38fce9 100644 (file)
--- a/lisp/nnimap.el
+++ b/lisp/nnimap.el
@@ -384,9 +384,9 @@ textual parts.")
     (nreverse parts)))
 
 (deffoo nnimap-request-group (group &optional server dont-check info)
     (nreverse parts)))
 
 (deffoo nnimap-request-group (group &optional server dont-check info)

-  (with-current-buffer nntp-server-buffer
-    (let ((result (nnimap-possibly-change-group group server))
-         articles active marks high low)
+  (let ((result (nnimap-possibly-change-group group server))
+       articles active marks high low)
+    (with-current-buffer nntp-server-buffer

       (when result
        (if (and dont-check
                 (setq active (nth 2 (assoc group nnimap-current-infos))))
       (when result
        (if (and dont-check
                 (setq active (nth 2 (assoc group nnimap-current-infos))))


@@ -424,6 +424,11 @@ textual parts.")
            low high group))))
       t)))
 
            low high group))))
       t)))
 

+(deffoo nnimap-request-delete-group (group &optional force server)
+  (when (nnimap-possibly-change-group nil server)
+    (with-current-buffer (nnimap-buffer)
+      (car (nnimap-command "DELETE %S" (utf7-encode group))))))
+

 (defun nnimap-get-flags (spec)
   (let ((articles nil)
        elems)
 (defun nnimap-get-flags (spec)
   (let ((articles nil)
        elems)