Decode outlook protection urls in elisp

decode_outlook.el

(defun decode-url-at-point (&optional arg)
  "Decode the outlook protection encoded url, display it as a message and put in the kill-ring."
  (interactive "P")
  (let ((url (browse-url-url-at-point)))
    (if url    
      (let ((decodedurl (url-unhex-string (nth 1 (split-string (nth 0 (split-string url "&")) "=")))))
            (message "%s" decodedurl)
            (kill-new decodedurl))
      (error "No URL found"))))