Fix encoding bug in gnus-group-rename-group

* lisp/gnus/gnus-group.el (gnus-group-rename-group): Should not be
  encoding or decoding here.

diff --git a/lisp/gnus/gnus-group.el b/lisp/gnus/gnus-group.el
index 51383de45815485d166d0bad8fcc3b28e9000b96..528dbce1614eeacc21b82b1aded8132e0ccd79db 100644 (file)
--- a/lisp/gnus/gnus-group.el
+++ b/lisp/gnus/gnus-group.el
@@ -2824,13 +2824,9 @@ and NEW-NAME will be prompted for."
        (error "This back end does not support renaming groups"))
      (setq new-name (gnus-read-group
                     "Rename group to: "
-                    (gnus-group-real-name (gnus-group-decoded-name group)))
+                    (gnus-group-real-name group))
           method (gnus-info-method (gnus-get-info group)))
-     (list group (encode-coding-string
-                 new-name
-                 (gnus-group-name-charset
-                  method
-                  (gnus-group-prefixed-name new-name method))))))
+     (list group (gnus-group-prefixed-name new-name method))))
 
   (unless (gnus-check-backend-function 'request-rename-group group)
     (error "This back end does not support renaming groups"))