diff options
author | Lars Ingebrigtsen <larsi@gnus.org> | 2021-11-14 02:21:45 +0100 |
---|---|---|
committer | Lars Ingebrigtsen <larsi@gnus.org> | 2021-11-14 02:21:45 +0100 |
commit | 08ce17c2c0d32e200af3984d59f0b78ec500dc2c (patch) | |
tree | b0ccee0bdefd6e2dd94ac108fa9580e5cf10cf50 | |
parent | 5beed9dfed64fe72ab8678d2706eddbbee3c157b (diff) | |
download | emacs-08ce17c2c0d32e200af3984d59f0b78ec500dc2c.tar.gz |
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.
-rw-r--r-- | lisp/gnus/gnus-msg.el | 4 |
1 files changed, 2 insertions, 2 deletions
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)) |