diff options
| author | Pip Cet <pipcet@gmail.com> | 2019-07-25 13:22:15 +0000 |
|---|---|---|
| committer | Eli Zaretskii <eliz@gnu.org> | 2019-07-27 13:54:04 +0300 |
| commit | e310843d9dc106187d0e45ef7f0b9cd90a881eec (patch) | |
| tree | d60df45275047bd65a05f1e6e116b8148aef2eac /lisp/url | |
| parent | 02bb676a0547e0a25fc697d3a4c539e5415b90be (diff) | |
| download | emacs-e310843d9dc106187d0e45ef7f0b9cd90a881eec.tar.gz | |
Don't double-decompress cached HTTP responses (bug#36773)
* lisp/url/url-http.el (url-handle-content-transfer-encoding): Modify
the message headers as well as the message body to reflect
decompression.
* lisp/mail/mail-utils.el (mail-fetch-field): Add DELETE argument, to
delete header lines included in the result.
Diffstat (limited to 'lisp/url')
| -rw-r--r-- | lisp/url/url-http.el | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lisp/url/url-http.el b/lisp/url/url-http.el index f7f2f3d179d..838f0a30c1f 100644 --- a/lisp/url/url-http.el +++ b/lisp/url/url-http.el @@ -959,7 +959,7 @@ should be shown to the user." (start end &optional allow-partial)) (defun url-handle-content-transfer-encoding () - (let ((encoding (mail-fetch-field "content-encoding"))) + (let ((encoding (mail-fetch-field "content-encoding" nil nil nil t))) (when (and encoding (fboundp 'zlib-available-p) (zlib-available-p) |