(url-http-handle-authentication): Don't kill the current buffer.

2 files changed, 7 insertions, 2 deletions

diff --git a/lisp/url/ChangeLog b/lisp/url/ChangeLog
index 9bb5ef1c3e..b3486e19ac 100644
--- a/lisp/url/ChangeLog
+++ b/lisp/url/ChangeLog
@@ -1,3 +1,8 @@
+2005-01-03  Klaus Straubinger  <[email protected]>  (tiny change)
+
+	* url-http.el (url-http-handle-authentication):
+	Don't kill the current buffer.
+
 2004-12-11  Stefan Monnier  <[email protected]>
 
 	* url-handlers.el: Don't `require' everything eagerly.
diff --git a/lisp/url/url-http.el b/lisp/url/url-http.el
index 8a7269e6be..2608a85963 100644
--- a/lisp/url/url-http.el
+++ b/lisp/url/url-http.el
@@ -322,8 +322,8 @@ This allows us to use `mail-fetch-field', etc."
 	  (let ((url-request-method url-http-method)
 		(url-request-data url-http-data)
 		(url-request-extra-headers url-http-extra-headers))
-	    (url-retrieve url url-callback-function url-callback-arguments))))
-      (kill-buffer (current-buffer)))))
+	    (url-retrieve url url-callback-function
+                          url-callback-arguments)))))))
 
 (defun url-http-parse-response ()
   "Parse just the response code."