procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

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
Show stats Download patch file Download diff file Expand all files Collapse all files

4
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)
(if (not (string-search "/" type))
type
(pcase-let ((`(,major ,minor) (split-string type "/")))
(concat major "/" (regexp-quote minor))))
(concat major "/" (regexp-quote minor)))))
(defun mailcap-extension-to-mime (extn)
"Return the MIME content type of the file extensions EXTN."