http - 使用 url-retrieve 解码 gzip-ed 响应主体

Question

对于 Emacs 扩展，我想通过 HTTP 检索数据。我不是特别喜欢花钱买 wget、curl 或 w3m 之类的东西来做到这一点，所以我正在使用 url-retrieve 函数。

与我交谈的其中一个 HTTP 服务器碰巧忽略了 Accept-Encoding header ，并坚持始终使用 Content-Encoding: gzip 发送其数据。

因此，由于 url-retrieve 不会自动解码响应主体，缓冲区 url-retrieve 将向我展示将包含二进制文件gzip 数据。

我正在寻找一种方法来解码响应主体，最好是在数据到达时逐 block 解码。有没有办法指示 url-retrieve 为我执行此操作？

一次解码所有响应，一旦它完全到达，也是可以接受的，但我宁愿避免创建运行 gzip 的异步子进程所涉及的所有 fubar，管道我得到的部分响应，并阅读解码 block 返回 - 我会在这里寻找一些库函数。

Answer 1

auto-compression-mode 所做的是对要解压缩的文件运行 gzip。参见示例 jka-compr-insert-file-contents在 jka-compr.el 中。因此，如果您要使用 auto-compression-mode 进行解压缩，则需要先将响应写入文件。例如，像这样:

(defun uncompress-callback (status)
  (let ((filename (make-temp-file "download" nil ".gz")))
    (search-forward "\n\n")               ; Skip response headers.
    (write-region (point) (point-max) filename)
    (with-auto-compression-mode
      (find-file filename))))

(url-retrieve "http://packages.ubuntu.com/hardy/allpackages?format=txt.gz"
              #'uncompress-callback)

(如果您不想创建临时文件，您将进行自己的子流程管理，但这并不像您在问题中暗示的那样棘手。)