procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

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)