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