[Emacs-diffs] Changes to emacs/lisp/url/url-dav.el,v

[Stefan Monnier]

CVSROOT:        /sources/emacs
Module name:    emacs
Changes by:     Stefan Monnier <monnier>        06/09/20 17:35:22

Index: url-dav.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/url/url-dav.el,v
retrieving revision 1.11
retrieving revision 1.12
diff -u -b -r1.11 -r1.12
--- url-dav.el  5 Feb 2006 23:15:07 -0000       1.11
+++ url-dav.el  20 Sep 2006 17:35:21 -0000      1.12
@@ -621,12 +621,10 @@
 (autoload 'url-http-head-file-attributes "url-http")
 
 (defun url-dav-file-attributes (url &optional id-format)
-  (let ((properties (cdar (url-dav-get-properties url)))
-       (attributes nil))
+  (let ((properties (cdar (url-dav-get-properties url))))
     (if (and properties
             (url-dav-http-success-p (plist-get properties 'DAV:status)))
        ;; We got a good DAV response back..
-       (setq attributes
              (list
               ;; t for directory, string for symbolic link, or nil
               ;; Need to support DAV Bindings to figure out the
@@ -670,10 +668,9 @@
               nil
 
               ;; device number - meaningless
-              nil))
+         nil)
       ;; Fall back to just the normal http way of doing things.
-      (setq attributes (url-http-head-file-attributes url id-format)))
-    attributes))
+      (url-http-head-file-attributes url id-format))))
 
 (defun url-dav-save-resource (url obj &optional content-type lock-token)
   "Save OBJ as URL using WebDAV.