[Emacs-diffs] /srv/bzr/emacs/trunk r104905: * url-http.el (url-http-wait-for-headers-change-function): Remove

[Lars Magne Ingebrigtsen]

------------------------------------------------------------
revno: 104905
fixes bug(s): http://debbugs.gnu.org/6735
committer: Lars Magne Ingebrigtsen <address@hidden>
branch nick: trunk
timestamp: Sun 2011-07-03 15:08:40 +0200
message:
  * url-http.el (url-http-wait-for-headers-change-function): Remove
  pointless "HTTP/0.9 How I hate thee!" message.
modified:
  lisp/url/ChangeLog
  lisp/url/url-http.el

=== modified file 'lisp/url/ChangeLog'
--- a/lisp/url/ChangeLog        2011-06-04 07:53:22 +0000
+++ b/lisp/url/ChangeLog        2011-07-03 13:08:40 +0000
@@ -1,3 +1,8 @@
+2011-07-03  Lars Magne Ingebrigtsen  <address@hidden>
+
+       * url-http.el (url-http-wait-for-headers-change-function): Remove
+       pointless "HTTP/0.9 How I hate thee!" message (bug#6735).
+
 2011-06-04  Andreas Schwab  <address@hidden>
 
        * url-future.el (url-future-test): Fix scope of `saver'.

=== modified file 'lisp/url/url-http.el'
--- a/lisp/url/url-http.el      2011-04-16 13:59:54 +0000
+++ b/lisp/url/url-http.el      2011-07-03 13:08:40 +0000
@@ -1059,19 +1059,16 @@
          ;; Haven't seen the end of the headers yet, need to wait
          ;; for more data to arrive.
          nil
-       (if old-http
-           (message "HTTP/0.9 How I hate thee!")
-         (progn
-           (url-http-parse-response)
-           (mail-narrow-to-head)
-           ;;(narrow-to-region (point-min) url-http-end-of-headers)
-           (setq url-http-transfer-encoding (mail-fetch-field
-                                             "transfer-encoding")
-                 url-http-content-type (mail-fetch-field "content-type"))
-           (if (mail-fetch-field "content-length")
-               (setq url-http-content-length
-                     (string-to-number (mail-fetch-field "content-length"))))
-           (widen)))
+       (unless old-http
+         (url-http-parse-response)
+         (mail-narrow-to-head)
+         (setq url-http-transfer-encoding (mail-fetch-field
+                                           "transfer-encoding")
+               url-http-content-type (mail-fetch-field "content-type"))
+         (if (mail-fetch-field "content-length")
+             (setq url-http-content-length
+                   (string-to-number (mail-fetch-field "content-length"))))
+         (widen))
        (when url-http-transfer-encoding
          (setq url-http-transfer-encoding
                (downcase url-http-transfer-encoding)))