diff options
| author | Lars Ingebrigtsen <larsi@gnus.org> | 2017-12-03 23:46:52 +0100 |
|---|---|---|
| committer | Lars Ingebrigtsen <larsi@gnus.org> | 2017-12-03 23:47:42 +0100 |
| commit | 66396972ed5273516a77589c350f6ce9becd8d9f (patch) | |
| tree | 9cd186493c9faf69ea854fbde7175c4900c2eec7 | |
| parent | e4f2061ebc61168f23c0d9440221cbc99864deae (diff) | |
| download | emacs-66396972ed5273516a77589c350f6ce9becd8d9f.tar.gz | |
Allow shr to use data: URLs without encoding
* lisp/net/shr.el (shr-image-from-data): Don't bug out on
image data: URLs that have no base64 encoding like
(shr-image-from-data
"text/html,%3Ch1%3EHello%2C%20World!%3C%2Fh1%3E").
| -rw-r--r-- | lisp/net/shr.el | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/lisp/net/shr.el b/lisp/net/shr.el index ab7240c8c3d..ad5d869531c 100644 --- a/lisp/net/shr.el +++ b/lisp/net/shr.el @@ -994,7 +994,8 @@ If EXTERNAL, browse the URL using `shr-external-browser'." data) (let ((param (match-string 4 data)) (payload (url-unhex-string (match-string 5 data)))) - (when (string-match "^.*\\(;[ \t]*base64\\)$" param) + (when (and param + (string-match "^.*\\(;[ \t]*base64\\)$" param)) (setq payload (ignore-errors (base64-decode-string payload)))) payload))) |