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

diff --git a/lisp/url/ChangeLog b/lisp/url/ChangeLog
index 9bb5ef1c3e530b4b51d24ef9f8d1856ebb972563..b3486e19acd724d051bbe05722947c468a6eee7f 100644 (file)
--- a/lisp/url/ChangeLog
+++ b/lisp/url/ChangeLog
@@ -1,3 +1,8 @@
+2005-01-03  Klaus Straubinger  <ksnetz@arcor.de>  (tiny change)
+
+       * url-http.el (url-http-handle-authentication):
+       Don't kill the current buffer.
+
 2004-12-11  Stefan Monnier  <monnier@iro.umontreal.ca>
 
        * url-handlers.el: Don't `require' everything eagerly.

diff --git a/lisp/url/url-http.el b/lisp/url/url-http.el
index 8a7269e6bea5ad307181e663e3379eaa226f590d..2608a85963a5a5a605373279b43aa91093fed7d1 100644 (file)
--- 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."