From: Lars Ingebrigtsen Date: Wed, 30 Sep 2020 03:05:04 +0000 (+0200) Subject: Fix whitespace regexp in gnus-base64-repad X-Git-Tag: emacs-28.0.90~5820 X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=fcdcdea324f32f63a25e4869e2e7c62293407421;p=emacs.git Fix whitespace regexp in gnus-base64-repad * lisp/gnus/gnus-util.el (gnus-base64-repad): Fix the whitespace regexp. --- diff --git a/lisp/gnus/gnus-util.el b/lisp/gnus/gnus-util.el index e98af10e1a0..0e15ebce6c6 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 "\\s-+" t))) + (let ((splitstr (split-string str "[\n\r \t]+" t))) (when (and reject-newlines (> (length splitstr) 1)) (error "Invalid Base64 string")) (dolist (substr splitstr)