diff options
| author | Eli Zaretskii <eliz@gnu.org> | 2026-05-24 09:41:26 +0300 |
|---|---|---|
| committer | Eli Zaretskii <eliz@gnu.org> | 2026-05-24 09:41:26 +0300 |
| commit | 4d87d203cfb9c407930332d53b8198328236fe9b (patch) | |
| tree | 4899a775ccc82cff1371ac46ceabd3636047d41f /lisp | |
| parent | 4c55d04ebe31f2a84273dfa2f765ca02e18ffb9d (diff) | |
Fix display of inline SVG images in Rmail
* lisp/mail/rmailmm.el (rmail-mime-set-bulk-data): Support
Content-type of "svg+xml" if SVG images are supported,
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/mail/rmailmm.el | 7 |
1 files changed, 5 insertions, 2 deletions
diff --git a/lisp/mail/rmailmm.el b/lisp/mail/rmailmm.el index 9226976c114..e70f96cb2f8 100644 --- a/lisp/mail/rmailmm.el +++ b/lisp/mail/rmailmm.el @@ -842,8 +842,11 @@ directly." ((string-match "text/" content-type) (setq type 'text)) ((string-match "image/\\(.*\\)" content-type) - (setq type (image-supported-file-p - (concat "." (match-string 1 content-type)))) + (let ((fnext (match-string 1 content-type))) + ;; Ask about SVG support when Content-type is image/svg+xml. + (if (equal fnext "svg+xml") + (setq fnext "svg")) + (setq type (image-supported-file-p (concat "." fnext)))) (when (and type rmail-mime-show-images (not (eq rmail-mime-show-images 'button)) |