* nnml.el (nnml-request-rename-group): Bind file-name-coding-system to

[gnus] / lisp / nnml.el

diff --git a/lisp/nnml.el b/lisp/nnml.el
index 6f45b0b..0f15918 100644 (file)
--- a/lisp/nnml.el
+++ b/lisp/nnml.el
@@ -539,7 +539,8 @@ non-nil.")
 (deffoo nnml-request-rename-group (group new-name &optional server)
   (nnml-possibly-change-directory group server)
   (let ((new-dir (nnml-group-pathname new-name nil server))
-       (old-dir (nnml-group-pathname group nil server)))
+       (old-dir (nnml-group-pathname group nil server))
+       (file-name-coding-system nnmail-pathname-coding-system))
     (when (ignore-errors
            (make-directory new-dir t)
            t)