From d18ec89f1c7043f65913752aae40ec109624f8ef Mon Sep 17 00:00:00 2001 From: Stefan Monnier Date: Fri, 31 Aug 2007 16:40:05 +0000 Subject: * url-parse.el (url): Use defstruct rather than macros. Update all callers. --- lisp/url/url-mailto.el | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'lisp/url/url-mailto.el') diff --git a/lisp/url/url-mailto.el b/lisp/url/url-mailto.el index 10d08b9633f..4b15d07245b 100644 --- a/lisp/url/url-mailto.el +++ b/lisp/url/url-mailto.el @@ -66,7 +66,7 @@ (if (url-user url) ;; malformed mailto URL (mailto://wmperry@gnu.org) instead of ;; mailto:wmperry@gnu.org - (url-set-filename url (concat (url-user url) "@" (url-filename url)))) + (setf (url-filename url) (concat (url-user url) "@" (url-filename url)))) (setq url (url-filename url)) (let (to args source-url subject func headers-start) (if (string-match (regexp-quote "?") url) -- cgit v1.2.1