From 3dabd272101bc82980a3cfdb748039c3228c762c Mon Sep 17 00:00:00 2001 From: Eric Abrahamsen Date: Mon, 20 Sep 2021 18:13:10 -0700 Subject: [PATCH] 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. --- lisp/gnus/gnus-msg.el | 24 ++++++------------------ 1 file changed, 6 insertions(+), 18 deletions(-) diff --git a/lisp/gnus/gnus-msg.el b/lisp/gnus/gnus-msg.el index 66501ef7d54..8a3272042f3 100644 --- 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)))) -- 2.39.5