(url-retrieve-synchronously): Call delete-process.

2 files changed, 7 insertions, 1 deletions

diff --git a/lisp/url/ChangeLog b/lisp/url/ChangeLog
index 146d224435b..7402de41aab 100644
--- a/lisp/url/ChangeLog
+++ b/lisp/url/ChangeLog
@@ -1,3 +1,7 @@
+2007-11-15  Richard Stallman  <rms@gnu.org>
+
+        * url.el (url-retrieve-synchronously): Call delete-process.
+
 2007-10-13  Richard Stallman  <rms@gnu.org>
 
         * url-util.el (url-basepath): Function deleted.
diff --git a/lisp/url/url.el b/lisp/url/url.el
index 1af016ff0ba..98dc939af99 100644
--- a/lisp/url/url.el
+++ b/lisp/url/url.el
@@ -240,7 +240,9 @@ no further processing).  URL is either a string or a parsed URL."
                 ;; XXX: The callback must always be called.  Any
                 ;; exception is a bug that should be fixed, not worked
                 ;; around.
-                (setq retrieval-done t))
+                (progn ;; Call delete-process so we run any sentinel now.
+                  (delete-process proc)
+                  (setq retrieval-done t)))
             ;; We used to use `sit-for' here, but in some cases it wouldn't
             ;; work because apparently pending keyboard input would always
             ;; interrupt it before it got a chance to handle process input.