From: Lars Ingebrigtsen <larsi@gnus.org>
Date: Tue, 29 Sep 2020 13:36:46 +0000 (+0200)
Subject: Fix space parsing in gnus-base64-repad
X-Git-Tag: emacs-28.0.90~5832
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=da40e5ecd79f8ad14915dae477c40f4090ce22ac;p=emacs.git

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.
---

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)