comparison lisp/url/url-http.el @ 64331:bb65f8cf3863

(url-http-parse-headers): Add :redirect arg-pair when calling url-retrieve, to indicate a redirect.

64330:ba29905c8f52

	       (setq redirect-uri (url-expand-file-name redirect-uri)))
	   (let ((url-request-method url-http-method)
		 (url-request-data url-http-data)
		 (url-request-extra-headers url-http-extra-headers))
	     (url-retrieve redirect-uri url-callback-function
			   (cons redirect-uri
				 (cdr url-callback-arguments)))
	     (url-mark-buffer-as-dead (current-buffer))))))
      (4				; Client error
       ;; 400 Bad Request
       ;; 401 Unauthorized
       ;; 402 Payment required

64331:bb65f8cf3863

	       (setq redirect-uri (url-expand-file-name redirect-uri)))
	   (let ((url-request-method url-http-method)
		 (url-request-data url-http-data)
		 (url-request-extra-headers url-http-extra-headers))
	     (url-retrieve redirect-uri url-callback-function
			   (cons :redirect
				 (cons redirect-uri
				       url-callback-arguments)))
	     (url-mark-buffer-as-dead (current-buffer))))))
      (4				; Client error
       ;; 400 Bad Request
       ;; 401 Unauthorized
       ;; 402 Payment required