From: Lars Ingebrigtsen <larsi@gnus.org>
Date: Sun, 3 Dec 2017 22:46:52 +0000 (+0100)
Subject: Allow shr to use data: URLs without encoding
X-Git-Tag: emacs-26.0.91~192
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=4b06af0;p=emacs.git

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").
---

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