Mercurial > emacs
comparison lisp/url/url-mailto.el @ 91040:14c4a6aac623
Merge from emacs--devo--0
Patches applied:
* emacs--devo--0 (patch 866-879)
- Merge multi-tty branch
- Update from CVS
- Merge from emacs--rel--22
Revision: emacs@sv.gnu.org/emacs--unicode--0--patch-257
| author | Miles Bader <miles@gnu.org> |
|---|---|
| date | Thu, 11 Oct 2007 16:14:00 +0000 |
| parents | dd2bcc6758a0 |
| children | 4d615a83cee2 |
comparison
equal
deleted
inserted
replaced
| 91039:eefadc1e1d5e | 91040:14c4a6aac623 |
|---|---|
| 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))) |