diff options
| author | Lars Magne Ingebrigtsen <larsi@gnus.org> | 2013-08-12 15:54:45 +0200 |
|---|---|---|
| committer | Lars Magne Ingebrigtsen <larsi@gnus.org> | 2013-08-12 15:54:45 +0200 |
| commit | 8a44a184685092e2f39c9355467defde0b8b030c (patch) | |
| tree | b5ecedafe78e402b50b0d9a1494477935789e07b /lisp/url/url-http.el | |
| parent | 594a430782d12499543637915fd974483523f500 (diff) | |
| download | emacs-8a44a184685092e2f39c9355467defde0b8b030c.tar.gz | |
Add the zlib prefix to `decompress-gzipped-region'
Diffstat (limited to 'lisp/url/url-http.el')
| -rw-r--r-- | lisp/url/url-http.el | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/lisp/url/url-http.el b/lisp/url/url-http.el index beffbe1f79b..9eab1a6f683 100644 --- a/lisp/url/url-http.el +++ b/lisp/url/url-http.el @@ -860,13 +860,14 @@ should be shown to the user." (defun url-handle-content-transfer-encoding () (let ((encoding (mail-fetch-field "content-encoding"))) (when (and encoding - (fboundp 'decompress-gzipped-region) + (fboundp 'zlib-decompress-gzipped-region) + (zlib-available-p) (equal (downcase encoding) "gzip")) (save-restriction (widen) (goto-char (point-min)) (when (search-forward "\n\n") - (decompress-gzipped-region (point) (point-max))))))) + (zlib-decompress-gzipped-region (point) (point-max))))))) ;; Miscellaneous (defun url-http-activate-callback () |