From: Visuwesh <visuweshm@gmail.com>
Date: Wed, 12 Apr 2023 13:47:23 +0000 (+0530)
Subject: Fix detection of WebP images by their signature
X-Git-Tag: emacs-29.0.91~147
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=17d803d0a75;p=emacs.git

Fix detection of WebP images by their signature

* lisp/image.el (image-type-header-regexps): The 4 characters
between "RIFF" and "WEBP" in WebP images can also be newlines.
(Bug#62790)
---

diff --git a/lisp/image.el b/lisp/image.el
index 6a8293fedf3..104fea407ff 100644
--- a/lisp/image.el
+++ b/lisp/image.el
@@ -51,7 +51,7 @@ static \\(unsigned \\)?char \\1_bits" . xbm)
     ("\\`\\(?:MM\0\\*\\|II\\*\0\\)" . tiff)
     ("\\`[\t\n\r ]*%!PS" . postscript)
     ("\\`\xff\xd8" . jpeg)    ; used to be (image-jpeg-p . jpeg)
-    ("\\`RIFF....WEBPVP8" . webp)
+    ("\\`RIFF[^z-a][^z-a][^z-a][^z-a]WEBPVP8" . webp)
     (,(let* ((incomment-re "\\(?:[^-]\\|-[^-]\\)")
 	     (comment-re (concat "\\(?:!--" incomment-re "*-->[ \t\r\n]*<\\)")))
 	(concat "\\(?:<\\?xml[ \t\r\n]+[^>]*>\\)?[ \t\r\n]*<"