Commit e7ea7cac authored by Stefan Monnier's avatar Stefan Monnier
Browse files

(url-retrieve-synchronously): Adjust the workaround so as not

to stop in the middle of a redirection.
parent 9f812d23
2006-01-10 Stefan Monnier <monnier@iro.umontreal.ca>
* url.el (url-retrieve-synchronously): Adjust the workaround so as not
to stop in the middle of a redirection.
* url-vars.el (url-privacy-level): Add setter.
2006-01-05 Stefan Monnier <monnier@iro.umontreal.ca>
......
......@@ -190,11 +190,14 @@ no further processing). URL is either a string or a parsed URL."
"Spinning in url-retrieve-synchronously: %S (%S)"
retrieval-done asynch-buffer)
(if (and proc (memq (process-status proc)
'(closed exit signal failed)))
'(closed exit signal failed))
;; Make sure another process hasn't been started, as can
;; happen with http redirections.
(eq proc (or (get-buffer-process asynch-buffer) proc)))
;; FIXME: It's not clear whether url-retrieve's callback is
;; guaranteed to be called or not. It seems that url-http
;; decides sometimes consciously not to call it, so it's not
;; clear that it's a bug, but even if we need to decide how
;; clear that it's a bug, but even then we need to decide how
;; url-http can then warn us that the download has completed.
;; In the mean time, we use this here workaround.
(setq retrieval-done t)
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment