322 |
(let ((url-request-method url-http-method) |
(let ((url-request-method url-http-method) |
323 |
(url-request-data url-http-data) |
(url-request-data url-http-data) |
324 |
(url-request-extra-headers url-http-extra-headers)) |
(url-request-extra-headers url-http-extra-headers)) |
325 |
(url-retrieve url url-callback-function url-callback-arguments)))) |
(url-retrieve url url-callback-function |
326 |
(kill-buffer (current-buffer))))) |
url-callback-arguments))))))) |
327 |
|
|
328 |
(defun url-http-parse-response () |
(defun url-http-parse-response () |
329 |
"Parse just the response code." |
"Parse just the response code." |