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
(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))))))