diff options
| author | Eric Abrahamsen <eric@ericabrahamsen.net> | 2019-06-21 10:38:57 -0700 |
|---|---|---|
| committer | Eric Abrahamsen <eric@ericabrahamsen.net> | 2019-06-21 10:38:57 -0700 |
| commit | ed5ddc1a7bb5a227db38df2e08e6e3761baddf46 (patch) | |
| tree | 545815cd92293c1df8afc386e4230e07aa56c223 | |
| parent | 8c382ca5170784a98793310d59861750ab2c7cd6 (diff) | |
| download | emacs-ed5ddc1a7bb5a227db38df2e08e6e3761baddf46.tar.gz | |
Fix encoding bug in gnus-group-rename-group
* lisp/gnus/gnus-group.el (gnus-group-rename-group): Should not be
encoding or decoding here.
| -rw-r--r-- | lisp/gnus/gnus-group.el | 8 |
1 files changed, 2 insertions, 6 deletions
diff --git a/lisp/gnus/gnus-group.el b/lisp/gnus/gnus-group.el index 51383de4581..528dbce1614 100644 --- 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")) |