From d4ed7bae076319cae3d9b0dd82ded37539f4039c Mon Sep 17 00:00:00 2001 From: Visuwesh Date: Thu, 14 Jul 2022 17:45:31 +0530 Subject: [PATCH] Make gnus display webp images inline * lisp/gnus/mm-decode.el (mm-inline-media-tests): Add webp handler. * lisp/net/mailcap.el (mailcap-mime-extensions): Add webp mimetype. --- lisp/gnus/mm-decode.el | 6 +++++- lisp/net/mailcap.el | 1 + 2 files changed, 6 insertions(+), 1 deletion(-) diff --git a/lisp/gnus/mm-decode.el b/lisp/gnus/mm-decode.el index 7256e5a2f7..79217d3400 100644 --- a/lisp/gnus/mm-decode.el +++ b/lisp/gnus/mm-decode.el @@ -193,7 +193,11 @@ mm-inline-media-tests `(("image/p?jpeg" mm-inline-image ,(lambda (handle) - (mm-valid-and-fit-image-p 'jpeg handle))) + (mm-valid-and-fit-image-p 'jpeg handle))) + ("image/webp" + mm-inline-image + ,(lambda (handle) + (mm-valid-and-fit-image-p 'webp handle))) ("image/png" mm-inline-image ,(lambda (handle) diff --git a/lisp/net/mailcap.el b/lisp/net/mailcap.el index 8ba7f1bec3..ee72eba35d 100644 --- a/lisp/net/mailcap.el +++ b/lisp/net/mailcap.el @@ -974,6 +974,7 @@ mailcap-mime-extensions (".ai" . "application/postscript") (".jpe" . "image/jpeg") (".jpeg" . "image/jpeg") + (".webp" . "image/webp") (".org" . "text/x-org")) "An alist of file extensions and corresponding MIME content-types. This exists for you to customize the information in Lisp. It is -- 2.35.1