Mercurial > emacs
comparison lisp/url/url-mailto.el @ 83823:dd2bcc6758a0
* url-parse.el (url): Use defstruct rather than macros. Update all callers.
| author | Stefan Monnier <monnier@iro.umontreal.ca> |
|---|---|
| date | Fri, 31 Aug 2007 16:40:05 +0000 |
| parents | 8932997d0b62 |
| children | 4d615a83cee2 |
comparison
equal
deleted
inserted
replaced
| 83822:8404d44e8ab8 | 83823:dd2bcc6758a0 |
|---|---|
| 64 (defun url-mailto (url) | 64 (defun url-mailto (url) |
| 65 "Handle the mailto: URL syntax." | 65 "Handle the mailto: URL syntax." |
| 66 (if (url-user url) | 66 (if (url-user url) |
| 67 ;; malformed mailto URL (mailto://wmperry@gnu.org) instead of | 67 ;; malformed mailto URL (mailto://wmperry@gnu.org) instead of |
| 68 ;; mailto:wmperry@gnu.org | 68 ;; mailto:wmperry@gnu.org |
| 69 (url-set-filename url (concat (url-user url) "@" (url-filename url)))) | 69 (setf (url-filename url) (concat (url-user url) "@" (url-filename url)))) |
| 70 (setq url (url-filename url)) | 70 (setq url (url-filename url)) |
| 71 (let (to args source-url subject func headers-start) | 71 (let (to args source-url subject func headers-start) |
| 72 (if (string-match (regexp-quote "?") url) | 72 (if (string-match (regexp-quote "?") url) |
| 73 (setq headers-start (match-end 0) | 73 (setq headers-start (match-end 0) |
| 74 to (url-unhex-string (substring url 0 (match-beginning 0))) | 74 to (url-unhex-string (substring url 0 (match-beginning 0))) |