(nnimap-request-rename-group): Select group read-only before renaming it.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 47ac036..0f08963 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,8 @@
 2010-10-11  Lars Magne Ingebrigtsen  <larsi@gnus.org>
 
 2010-10-11  Lars Magne Ingebrigtsen  <larsi@gnus.org>
 

+       * nnimap.el (nnimap-request-rename-group): Select group read-only
+       before renaming it.
+

        * shr.el (shr-insert): Fix up the white space only regexp.
 
        * nnimap.el (nnimap-transform-split-mail): Not all articles have
        * shr.el (shr-insert): Fix up the white space only regexp.
 
        * nnimap.el (nnimap-transform-split-mail): Not all articles have

diff --git a/lisp/nnimap.el b/lisp/nnimap.el
index 68bd630..4c05fb4 100644 (file)
--- a/lisp/nnimap.el
+++ b/lisp/nnimap.el
@@ -667,6 +667,9 @@ textual parts.")
 (deffoo nnimap-request-rename-group (group new-name &optional server)
   (when (nnimap-possibly-change-group nil server)
     (with-current-buffer (nnimap-buffer)
 (deffoo nnimap-request-rename-group (group new-name &optional server)
   (when (nnimap-possibly-change-group nil server)
     (with-current-buffer (nnimap-buffer)

+      ;; Make sure we don't have this group open read/write.
+      (nnimap-command "EXAMINE %S" (utf7-encode group 7))
+      (setf (nnimap-group nnimap-object) nil)

       (car (nnimap-command "RENAME %S %S"
                           (utf7-encode group t) (utf7-encode new-name t))))))
 
       (car (nnimap-command "RENAME %S %S"
                           (utf7-encode group t) (utf7-encode new-name t))))))