From: Lars Ingebrigtsen <larsi@gnus.org>
Date: Sun, 14 Nov 2021 01:21:45 +0000 (+0100)
Subject: Fix Gnus gcc header tokenization
X-Git-Tag: emacs-29.0.90~2852^2~301
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=08ce17c2c0d32e200af3984d59f0b78ec500dc2c;p=emacs.git

Fix Gnus gcc header tokenization

* lisp/gnus/gnus-msg.el (gnus-summary-resend-message-insert-gcc)
(gnus-inews-do-gcc): Fix tokenization of the gcc header.
---

diff --git a/lisp/gnus/gnus-msg.el b/lisp/gnus/gnus-msg.el
index e88aa8f7d09..dfadfd39201 100644
--- a/lisp/gnus/gnus-msg.el
+++ b/lisp/gnus/gnus-msg.el
@@ -1305,7 +1305,7 @@ For the \"inline\" alternatives, also see the variable
   (gnus-inews-insert-gcc)
   (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")
@@ -1572,7 +1572,7 @@ this is a reply."
 	  (message-remove-header "gcc")
 	  (widen)
 	  (setq groups (message-unquote-tokens
-			(message-tokenize-header gcc " ,\n\t")))
+			(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))