/[emacs]/emacs/lisp/url/url-mailto.el
ViewVC logotype

Diff of /emacs/lisp/url/url-mailto.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.6 by rms, Sat Oct 16 14:57:46 2004 UTC revision 1.7 by jet, Thu Nov 11 18:03:41 2004 UTC
# Line 63  Line 63 
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))

Legend:
Removed from v.1.6  
changed lines
  Added in v.1.7

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26