63 |
(defun url-mailto (url) |
(defun url-mailto (url) |
64 |
"Handle the mailto: URL syntax." |
"Handle the mailto: URL syntax." |
65 |
(if (url-user url) |
(if (url-user url) |
66 |
;; malformed mailto URL (mailto://wmperry@gnu.org instead of |
;; malformed mailto URL (mailto://wmperry@gnu.org) instead of |
67 |
;; mailto:wmperry@gnu.org |
;; mailto:wmperry@gnu.org |
68 |
(url-set-filename url (concat (url-user url) "@" (url-filename url)))) |
(url-set-filename url (concat (url-user url) "@" (url-filename url)))) |
69 |
(setq url (url-filename url)) |
(setq url (url-filename url)) |