diff options
author | Eric Abrahamsen <eric@ericabrahamsen.net> | 2021-09-20 18:13:10 -0700 |
---|---|---|
committer | Eric Abrahamsen <eric@ericabrahamsen.net> | 2021-09-20 18:23:56 -0700 |
commit | 3dabd272101bc82980a3cfdb748039c3228c762c (patch) | |
tree | 9183db82bfaf2326e47d4d3c332d4db6a4663c96 /lisp/gnus/gnus-msg.el | |
parent | 9767c6b01dccb7e29e240a22d978835d240e8ab0 (diff) | |
download | emacs-3dabd272101bc82980a3cfdb748039c3228c762c.tar.gz |
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.
Diffstat (limited to 'lisp/gnus/gnus-msg.el')
-rw-r--r-- | lisp/gnus/gnus-msg.el | 24 |
1 files 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)))) |