Mercurial > emacs
comparison lisp/url/url-http.el @ 59326:2456c6683909
(url-http-handle-authentication): Don't kill the current buffer.
| author | Thien-Thi Nguyen <ttn@gnuvola.org> |
|---|---|
| date | Mon, 03 Jan 2005 16:53:17 +0000 |
| parents | 2d413ef5bfec |
| children | d980e03df4e4 |
comparison
equal
deleted
inserted
replaced
| 59325:68eaccfa130a | 59326:2456c6683909 |
|---|---|
| 320 (push (cons (if proxy "Proxy-Authorization" "Authorization") auth) | 320 (push (cons (if proxy "Proxy-Authorization" "Authorization") auth) |
| 321 url-http-extra-headers) | 321 url-http-extra-headers) |
| 322 (let ((url-request-method url-http-method) | 322 (let ((url-request-method url-http-method) |
| 323 (url-request-data url-http-data) | 323 (url-request-data url-http-data) |
| 324 (url-request-extra-headers url-http-extra-headers)) | 324 (url-request-extra-headers url-http-extra-headers)) |
| 325 (url-retrieve url url-callback-function url-callback-arguments)))) | 325 (url-retrieve url url-callback-function |
| 326 (kill-buffer (current-buffer))))) | 326 url-callback-arguments))))))) |
| 327 | 327 |
| 328 (defun url-http-parse-response () | 328 (defun url-http-parse-response () |
| 329 "Parse just the response code." | 329 "Parse just the response code." |
| 330 (declare (special url-http-end-of-headers url-http-response-status)) | 330 (declare (special url-http-end-of-headers url-http-response-status)) |
| 331 (if (not url-http-end-of-headers) | 331 (if (not url-http-end-of-headers) |