mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-05 11:45:45 +00:00
Code Issues Releases Activity

Remove some last calls to Gnus group name encoding

Browse Source 
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.
This commit is contained in:
Eric Abrahamsen 2021-09-20 18:13:10 -07:00
parent 9767c6b01d
commit 3dabd27210
1 changed files with 6 additions and 18 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

24
lisp/gnus/gnus-msg.el
View File

@ -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))))