[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
master fcdcdea 2/2: Fix whitespace regexp in gnus-base64-repad
From: |
Lars Ingebrigtsen |
Subject: |
master fcdcdea 2/2: Fix whitespace regexp in gnus-base64-repad |
Date: |
Tue, 29 Sep 2020 23:05:17 -0400 (EDT) |
branch: master
commit fcdcdea324f32f63a25e4869e2e7c62293407421
Author: Lars Ingebrigtsen <larsi@gnus.org>
Commit: Lars Ingebrigtsen <larsi@gnus.org>
Fix whitespace regexp in gnus-base64-repad
* lisp/gnus/gnus-util.el (gnus-base64-repad): Fix the whitespace
regexp.
---
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 e98af10..0e15ebc 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)