# HG changeset patch
# User Stefan Monnier <monnier@iro.umontreal.ca>
# Date 1082152691 0
# Node ID 42040974ab4230c67781daa190de9831ba435d8c
# Parent  28a55e2ec30f7e82f60516973e71de8b6d70b427
Use with-current-buffer.
(url-dav-process-response): Fix regexps and spurious quote.
(url-dav-file-attributes): Add id-format param.

diff -r 28a55e2ec30f -r 42040974ab42 lisp/url/url-dav.el
--- a/lisp/url/url-dav.el	Fri Apr 16 21:52:14 2004 +0000
+++ b/lisp/url/url-dav.el	Fri Apr 16 21:58:11 2004 +0000
@@ -386,8 +386,7 @@
 	(overall-status nil))
     (when buffer
       (unwind-protect
-	  (save-excursion
-	    (set-buffer buffer)
+	  (with-current-buffer buffer
 	    (goto-char url-http-end-of-headers)
 	    (setq overall-status url-http-response-status)
 
@@ -396,13 +395,13 @@
 	    ;; them.
 	    (if (and
 		 url-http-content-type
-		 (or (string-match "^text/xml" url-http-content-type)
-		     (string-match "^application/xml" url-http-content-type)))
+		 (string-match "\\`\\(text\\|application\\)/xml"
+			       url-http-content-type))
 		(setq tree (xml-parse-region (point) (point-max)))))
 	;; Clean up after ourselves.
-	'(kill-buffer buffer)))
+	(kill-buffer buffer)))
 
-    ;; We should now be 
+    ;; We should now be
     (if (eq (xml-node-name (car tree)) 'DAV:multistatus)
 	(url-dav-dispatch-node (car tree))
       (url-debug 'dav "Got back singleton response for URL(%S)" url)
@@ -577,8 +576,7 @@
 	 (result nil))
     (when buffer
       (unwind-protect
-	  (save-excursion
-	    (set-buffer buffer)
+	  (with-current-buffer buffer
 	    (setq result (url-dav-http-success-p url-http-response-status)))
 	(kill-buffer buffer)))
     result))
@@ -627,7 +625,7 @@
 (autoload 'url-http-head-file-attributes "url-http")
 
 ;;;###autoload
-(defun url-dav-file-attributes (url)
+(defun url-dav-file-attributes (url &optional id-format)
   (let ((properties (cdar (url-dav-get-properties url)))
 	(attributes nil))
     (if (and properties
@@ -679,7 +677,7 @@
 	       ;; device number - meaningless
 	       nil))
       ;; Fall back to just the normal http way of doing things.
-      (setq attributes (url-http-head-file-attributes url)))
+      (setq attributes (url-http-head-file-attributes url id-format)))
     attributes))
 
 ;;;###autoload
@@ -695,8 +693,7 @@
 	(url-request-data
 	 (cond
 	  ((bufferp obj)
-	   (save-excursion
-	     (set-buffer obj)
+	   (with-current-buffer obj
 	     (buffer-string)))
 	  ((stringp obj)
 	   obj)
@@ -719,8 +716,7 @@
     ;; Sanity checking
     (when buffer
       (unwind-protect
-	  (save-excursion
-	    (set-buffer buffer)
+	  (with-current-buffer buffer
 	    (setq result (url-dav-http-success-p url-http-response-status)))
 	(kill-buffer buffer)))
     result))
@@ -849,8 +845,7 @@
 	 (result nil))
     (when buffer
       (unwind-protect
-	  (save-excursion
-	    (set-buffer buffer)
+	  (with-current-buffer buffer
 	    (case url-http-response-status
 	      (201			; Collection created in its entirety
 	       (setq result t))