diff options
author | Lars Ingebrigtsen <larsi@gnus.org> | 2022-05-02 11:37:35 +0200 |
---|---|---|
committer | Lars Ingebrigtsen <larsi@gnus.org> | 2022-05-02 11:37:35 +0200 |
commit | f7a6dd4fcc54230630fcba73ca6bda2a413eff24 (patch) | |
tree | ab76157f20e43ff7cfb02b08376a31a2f08eea6e | |
parent | 97badaab7969ed5a306d6bcd320eb3d592a7f4ae (diff) | |
download | emacs-f7a6dd4fcc54230630fcba73ca6bda2a413eff24.tar.gz |
Re-fix Gcc header tokenization in Gnus
* lisp/gnus/gnus-msg.el (gnus-inews-do-gcc): Split the Gcc header
on commas, but allow group names to contain spaces (bug#55217).
-rw-r--r-- | lisp/gnus/gnus-msg.el | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/lisp/gnus/gnus-msg.el b/lisp/gnus/gnus-msg.el index f6ae028a104..17a87134be0 100644 --- a/lisp/gnus/gnus-msg.el +++ b/lisp/gnus/gnus-msg.el @@ -1571,8 +1571,9 @@ this is a reply." (when gcc (message-remove-header "gcc") (widen) - (setq groups (message-unquote-tokens - (message-tokenize-header gcc ",\n\t"))) + (setq groups (mapcar #'string-trim + (message-unquote-tokens + (message-tokenize-header gcc)))) ;; Copy the article over to some group(s). (while (setq group (pop groups)) (setq method (gnus-inews-group-method group)) |