url-http-find-free-connection

[P.L.Hayes]

When running some elisp code that makes use of the metamark.net
facility, I found that recent changes in cvs to
url-http-find-free-connection from url-http.el have broken it
somewhat. This bit at the end:

    (url-http-mark-connection-as-busy
     host port
     (or found
         (let ((buf (generate-new-buffer " *url-http-temp*")))
           ;; `url-open-stream' needs a buffer in which to do things
           ;; like authentication.  But we use another buffer afterwards.
           (unwind-protect
               (let ((proc (url-open-stream host buf host port)))
                 ;; Drop the temp buffer link before killing the buffer.
                 (set-process-buffer proc nil))
             (kill-buffer buf)))))))

doesn't return the process from url-open-stream to the 3rd argument of
url-http-mark-connection-as-busy. When I changed it to:

   (url-http-mark-connection-as-busy
     host port
     (or found
         (let ((buf (generate-new-buffer " *url-http-temp*")))
           ;; `url-open-stream' needs a buffer in which to do things
           ;; like authentication.  But we use another buffer afterwards.
           (unwind-protect
               (let ((proc (url-open-stream host buf host port)))
                 ;; Drop the temp buffer link before killing the buffer.
                 (set-process-buffer proc nil)
                 (kill-buffer buf)
                 proc)))))))

it started working again - for me anyway.

Regards,

Paul.