Silence some url compilation warnings on systems without zlib

* url-http.el (url-handle-content-transfer-encoding):
* url-vars.el (url-mime-encoding-string): Silence compiler.

diff --git a/lisp/url/ChangeLog b/lisp/url/ChangeLog
index 52a69690534e75128bb0d1eb720623dfc5145321..3f48b8ff4315700d79a429cc140af76797df9782 100644 (file)
--- a/lisp/url/ChangeLog
+++ b/lisp/url/ChangeLog
@@ -1,3 +1,8 @@
+2013-09-13  Glenn Morris  <rgm@gnu.org>
+
+       * url-http.el (url-handle-content-transfer-encoding):
+       * url-vars.el (url-mime-encoding-string): Silence compiler.
+
 2013-08-14  Lars Magne Ingebrigtsen  <larsi@gnus.org>
 
        * url-http.el (url-http-parse-headers): Always place point at the

diff --git a/lisp/url/url-http.el b/lisp/url/url-http.el
index 7047e6b5f13ee33eb57ef7b08e5b6e774e3cc1b5..4f9e868c05ed8bb4f6b6af6b0fc943c3d49ac4ee 100644 (file)
--- a/lisp/url/url-http.el
+++ b/lisp/url/url-http.el
@@ -861,7 +861,7 @@ should be shown to the user."
 (defun url-handle-content-transfer-encoding ()
   (let ((encoding (mail-fetch-field "content-encoding")))
     (when (and encoding
-              (fboundp 'zlib-decompress-region)
+              (fboundp 'zlib-available-p)
               (zlib-available-p)
               (equal (downcase encoding) "gzip"))
       (save-restriction

diff --git a/lisp/url/url-vars.el b/lisp/url/url-vars.el
index 0361e01dfb473a963f9804f042c08270bd279c55..a34111c27b7bd8d8d7b136935d631c8fd5f919f2 100644 (file)
--- a/lisp/url/url-vars.el
+++ b/lisp/url/url-vars.el
@@ -210,7 +210,7 @@ Should be an assoc list of headers/contents.")
 
 (defvar url-request-method nil "The method to use for the next request.")
 
-(defvar url-mime-encoding-string (and (fboundp 'zlib-decompress-region)
+(defvar url-mime-encoding-string (and (fboundp 'zlib-available-p)
                                      (zlib-available-p)
                                      "gzip")
   "String to send in the Accept-encoding: field in HTTP requests.")