From: Lars Magne Ingebrigtsen <larsi@quimbies.gnus.org>
Date: Mon, 20 Sep 2010 16:03:37 +0000 (+0200)
Subject: Implement group deletion.
X-Git-Url: http://cgit.sxemacs.org/?p=gnus;a=commitdiff_plain;h=fee47182dfbf2e884583644597fca20f0b73e027

Implement group deletion.
---

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 89339d32a..509ebad53 100644
--- 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
diff --git a/lisp/nnimap.el b/lisp/nnimap.el
index 2de09b19c..c38fce9df 100644
--- 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)
-  (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))))
@@ -424,6 +424,11 @@ textual parts.")
 	    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)