diff options
| author | Lars Ingebrigtsen | 2020-09-29 15:36:46 +0200 |
|---|---|---|
| committer | Lars Ingebrigtsen | 2020-09-29 15:36:46 +0200 |
| commit | da40e5ecd79f8ad14915dae477c40f4090ce22ac (patch) | |
| tree | 9319aee4b98228e5b9fea084ed8d1fdd9f94b575 | |
| parent | 511c9d02b7addbb5ca0143af0cade21f0f06bd05 (diff) | |
| download | emacs-da40e5ecd79f8ad14915dae477c40f4090ce22ac.tar.gz emacs-da40e5ecd79f8ad14915dae477c40f4090ce22ac.zip | |
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.
| -rw-r--r-- | lisp/gnus/gnus-util.el | 2 |
1 files changed, 1 insertions, 1 deletions
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)." | |||
| 1368 | ;; input (3.1, 3.3) | 1368 | ;; input (3.1, 3.3) |
| 1369 | ;; - if line-length is set, error on input exceeding the limit (3.1) | 1369 | ;; - if line-length is set, error on input exceeding the limit (3.1) |
| 1370 | ;; - reject characters outside base encoding (3.3, also section 12) | 1370 | ;; - reject characters outside base encoding (3.3, also section 12) |
| 1371 | (let ((splitstr (split-string str "[\r\n]" t))) | 1371 | (let ((splitstr (split-string str "\\s-+" t))) |
| 1372 | (when (and reject-newlines (> (length splitstr) 1)) | 1372 | (when (and reject-newlines (> (length splitstr) 1)) |
| 1373 | (error "Invalid Base64 string")) | 1373 | (error "Invalid Base64 string")) |
| 1374 | (dolist (substr splitstr) | 1374 | (dolist (substr splitstr) |