nnimap: add request-rename

Signed-off-by: Julien Danjou <julien@danjou.info>

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index d368878..d459501 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,7 @@
+2010-10-07  Julien Danjou  <julien@danjou.info>
+
+       * nnimap.el (nnimap-request-rename-group): Add this method.
+
 2010-10-07  Katsumi Yamaoka  <yamaoka@jpl.org>
 
        * gnus-html.el (gnus-html-schedule-image-fetching): Remove function

diff --git a/lisp/nnimap.el b/lisp/nnimap.el
index 7d935e4..2fa9d7c 100644 (file)
--- a/lisp/nnimap.el
+++ b/lisp/nnimap.el
@@ -652,6 +652,11 @@ textual parts.")
     (with-current-buffer (nnimap-buffer)
       (car (nnimap-command "DELETE %S" (utf7-encode group t))))))
 
+(deffoo nnimap-request-rename-group (group new-name &optional server)
+  (when (nnimap-possibly-change-group nil server)
+    (with-current-buffer (nnimap-buffer)
+      (car (nnimap-command "RENAME %S %S" (utf7-encode group t) (utf7-encode new-name t))))))
+
 (deffoo nnimap-request-expunge-group (group &optional server)
   (when (nnimap-possibly-change-group group server)
     (with-current-buffer (nnimap-buffer)