summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorVisuwesh <visuweshm@gmail.com>2022-07-14 19:41:58 +0200
committerLars Ingebrigtsen <larsi@gnus.org>2022-07-14 19:41:58 +0200
commit26af1ca9e9a37cf9b42f16b3fbeb41d0a3c4fb35 (patch)
tree2bd7f7408aad605f98b1444c655fefe2277ec373
parentd2186160a9e978960c0f96bc3b4fc65b5affc170 (diff)
downloademacs-26af1ca9e9a37cf9b42f16b3fbeb41d0a3c4fb35.tar.gz
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 (bug#56552).
-rw-r--r--lisp/gnus/mm-decode.el6
-rw-r--r--lisp/net/mailcap.el1
2 files changed, 6 insertions, 1 deletions
diff --git a/lisp/gnus/mm-decode.el b/lisp/gnus/mm-decode.el
index 7256e5a2f7c..79217d34001 100644
--- a/lisp/gnus/mm-decode.el
+++ b/lisp/gnus/mm-decode.el
@@ -193,7 +193,11 @@ before the external MIME handler is invoked."
`(("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 8ba7f1bec3d..ee72eba35db 100644
--- a/lisp/net/mailcap.el
+++ b/lisp/net/mailcap.el
@@ -974,6 +974,7 @@ If NO-DECODE is non-nil, don't decode STRING."
(".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