From da40e5ecd79f8ad14915dae477c40f4090ce22ac Mon Sep 17 00:00:00 2001 From: Lars Ingebrigtsen Date: Tue, 29 Sep 2020 15:36:46 +0200 Subject: [PATCH] Fix space parsing in gnus-base64-repad * lisp/gnus/gnus-util.el (gnus-base64-repad): Get the separator regexp right -- there will often be spaces around the newlines. --- lisp/gnus/gnus-util.el | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/lisp/gnus/gnus-util.el b/lisp/gnus/gnus-util.el index f8126906b87..e98af10e1a0 100644 --- a/lisp/gnus/gnus-util.el +++ b/lisp/gnus/gnus-util.el @@ -1368,7 +1368,7 @@ CRLF (RFC 5321 SMTP)." ;; input (3.1, 3.3) ;; - if line-length is set, error on input exceeding the limit (3.1) ;; - reject characters outside base encoding (3.3, also section 12) - (let ((splitstr (split-string str "[\r\n]" t))) + (let ((splitstr (split-string str "\\s-+" t))) (when (and reject-newlines (> (length splitstr) 1)) (error "Invalid Base64 string")) (dolist (substr splitstr) -- 2.39.5