mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-12-15 09:47:20 +00:00
Code Issues Releases Activity

Fix whitespace regexp in gnus-base64-repad

Browse Source 
* lisp/gnus/gnus-util.el (gnus-base64-repad): Fix the whitespace
regexp.
This commit is contained in:
Lars Ingebrigtsen 2020-09-30 05:05:04 +02:00
parent 1993c4e300
commit fcdcdea324
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
lisp/gnus/gnus-util.el
View File

@ -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)