Function: url-dav-unlock-resource

url-dav-unlock-resource is a byte-compiled function defined in url-dav.el.gz.

Signature

(url-dav-unlock-resource URL LOCK-TOKEN)

Documentation

Release the lock on URL represented by LOCK-TOKEN.

Returns t if the lock was successfully released.

Source Code

;; Defined in /usr/src/emacs/lisp/url/url-dav.el.gz
(defun url-dav-unlock-resource (url lock-token)
  "Release the lock on URL represented by LOCK-TOKEN.
Returns t if the lock was successfully released."
  (let* ((url-request-extra-headers (list (cons "Lock-Token"
						(concat "<" lock-token ">"))))
	 (url-request-method "UNLOCK")
	 (url-request-data nil)
	 (buffer (url-retrieve-synchronously url))
	 (result nil))
    (when buffer
      (unwind-protect
	  (with-current-buffer buffer
	    (setq result (url-dav-http-success-p url-http-response-status)))
	(kill-buffer buffer)))
    result))