diff options
Diffstat (limited to 'lisp/url/url-file.el')
| -rw-r--r-- | lisp/url/url-file.el | 15 |
1 files changed, 7 insertions, 8 deletions
diff --git a/lisp/url/url-file.el b/lisp/url/url-file.el index 62052fcaafb..4bbbdcf200c 100644 --- a/lisp/url/url-file.el +++ b/lisp/url/url-file.el @@ -23,7 +23,6 @@ ;;; Code: -(eval-when-compile (require 'cl)) (require 'mailcap) (require 'url-vars) (require 'url-parse) @@ -172,13 +171,13 @@ to them." filename)) (setq content-type (mailcap-extension-to-mime (url-file-extension uncompressed-filename)) - content-encoding (case (intern (url-file-extension filename)) - ((\.z \.gz) "gzip") - (\.Z "compress") - (\.uue "x-uuencoded") - (\.hqx "x-hqx") - (\.bz2 "x-bzip2") - (otherwise nil))) + content-encoding (pcase (url-file-extension filename) + ((or ".z" ".gz") "gzip") + (".Z" "compress") + (".uue" "x-uuencoded") + (".hqx" "x-hqx") + (".bz2" "x-bzip2") + (_ nil))) (if (file-directory-p filename) ;; A directory is done the same whether we are local or remote |