mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-03-03 04:21:28 -08:00
Code Issues Projects Releases Wiki Activity

Merge branch 'master' of git.savannah.gnu.org:/srv/git/emacs

Browse source
This commit is contained in:
Eli Zaretskii 2022-10-01 18:00:24 +03:00
commit ced37a87e7
1 changed files with 4 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

6
lisp/net/mailcap.el
View file

@ -1066,8 +1066,10 @@ If FORCE, re-parse even if already parsed."
extns nil)))))
(defun mailcap--regexp-quote-type (type)
(pcase-let ((`(,major ,minor) (split-string type "/")))
(concat major "/" (regexp-quote minor))))
(if (not (string-search "/" type))
type
(pcase-let ((`(,major ,minor) (split-string type "/")))
(concat major "/" (regexp-quote minor)))))
(defun mailcap-extension-to-mime (extn)
"Return the MIME content type of the file extensions EXTN."