Remove some last calls to Gnus group name encoding

This should have been part of cb12a84f2c

* lisp/gnus/gnus-msg.el (gnus-summary-resend-message-insert-gcc,
gnus-inews-do-gcc): Don't encode group names.

diff --git a/lisp/gnus/gnus-msg.el b/lisp/gnus/gnus-msg.el
index 66501ef7d54e1d05e646b98ca12a1cb90a9b93d2..8a3272042f32a657129a96a55898bde822b216e2 100644 (file)
--- a/lisp/gnus/gnus-msg.el
+++ b/lisp/gnus/gnus-msg.el
@@ -1303,15 +1303,9 @@ For the \"inline\" alternatives, also see the variable
 (defun gnus-summary-resend-message-insert-gcc ()
   "Insert Gcc header according to `gnus-gcc-self-resent-messages'."
   (gnus-inews-insert-gcc)
-  (let ((gcc (mapcar
-             (lambda (group)
-               (encode-coding-string
-                group
-                (gnus-group-name-charset (gnus-inews-group-method group)
-                                         group)))
-             (message-unquote-tokens
+  (let ((gcc (message-unquote-tokens
               (message-tokenize-header (mail-fetch-field "gcc" nil t)
-                                       " ,"))))
+                                       " ,")))
        (self (with-current-buffer gnus-summary-buffer
                gnus-gcc-self-resent-messages)))
     (message-remove-header "gcc")
@@ -1322,12 +1316,9 @@ For the \"inline\" alternatives, also see the variable
             (insert "Gcc: \"" gnus-newsgroup-name "\"\n"))
            ((stringp self)
             (insert "Gcc: "
-                    (encode-coding-string
-                     (if (string-search " " self)
-                         (concat "\"" self "\"")
-                       self)
-                     (gnus-group-name-charset (gnus-inews-group-method self)
-                                              self))
+                    (if (string-search " " self)
+                        (concat "\"" self "\"")
+                      self)
                     "\n"))
            ((null self)
             (insert "Gcc: " (mapconcat #'identity gcc ", ") "\n"))
@@ -1584,10 +1575,7 @@ this is a reply."
                        (message-tokenize-header gcc " ,\n\t")))
          ;; Copy the article over to some group(s).
          (while (setq group (pop groups))
-           (setq method (gnus-inews-group-method group)
-                 group (encode-coding-string
-                        group
-                        (gnus-group-name-charset method group)))
+           (setq method (gnus-inews-group-method group))
            (unless (gnus-check-server method)
              (error "Can't open server %s" (if (stringp method) method
                                              (car method))))