Mercurial > emacs

comparison lisp/url/url-mailto.el @ 90044:cb7f41387eb3

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Revision: miles@gnu.org--gnu-2004/emacs--unicode--0--patch-70 Merge from emacs--cvs-trunk--0 Patches applied: * miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-669 - miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-678 Update from CVS * miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-679 Merge from gnus--rel--5.10 * miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-680 - miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-688 Update from CVS * miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-689 Merge from gnus--rel--5.10 * miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-690 - miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-691 Update from CVS * miles@gnu.org--gnu-2004/gnus--rel--5.10--patch-69 Merge from emacs--cvs-trunk--0 * miles@gnu.org--gnu-2004/gnus--rel--5.10--patch-70 - miles@gnu.org--gnu-2004/gnus--rel--5.10--patch-71 Update from CVS
author Miles Bader <miles@gnu.org>
date Fri, 12 Nov 2004 02:53:04 +0000
parents 9eeb05e27d32
children a8fa7c632ee4 3ec251523b3e
comparison
equal deleted inserted replaced
90043:e24e2e78deda 90044:cb7f41387eb3
61 61
62 ;;;###autoload 62 ;;;###autoload
63 (defun url-mailto (url) 63 (defun url-mailto (url)
64 "Handle the mailto: URL syntax." 64 "Handle the mailto: URL syntax."
65 (if (url-user url) 65 (if (url-user url)
66 ;; malformed mailto URL (mailto://wmperry@gnu.org instead of 66 ;; malformed mailto URL (mailto://wmperry@gnu.org) instead of
67 ;; mailto:wmperry@gnu.org 67 ;; mailto:wmperry@gnu.org
68 (url-set-filename url (concat (url-user url) "@" (url-filename url)))) 68 (url-set-filename url (concat (url-user url) "@" (url-filename url))))
69 (setq url (url-filename url)) 69 (setq url (url-filename url))
70 (let (to args source-url subject func headers-start) 70 (let (to args source-url subject func headers-start)
71 (if (string-match (regexp-quote "?") url) 71 (if (string-match (regexp-quote "?") url)