diff options
| author | Stefan Monnier <monnier@iro.umontreal.ca> | 2007-08-31 16:40:05 +0000 |
|---|---|---|
| committer | Stefan Monnier <monnier@iro.umontreal.ca> | 2007-08-31 16:40:05 +0000 |
| commit | d18ec89f1c7043f65913752aae40ec109624f8ef (patch) | |
| tree | ea27a7a77b36e119da0d1c450615e3e76f149501 /lisp/url/url-mailto.el | |
| parent | 7c1bfeccb0d3c330fee1a3628784da157f5e75c2 (diff) | |
| download | emacs-d18ec89f1c7043f65913752aae40ec109624f8ef.tar.gz | |
* url-parse.el (url): Use defstruct rather than macros. Update all callers.
Diffstat (limited to 'lisp/url/url-mailto.el')
| -rw-r--r-- | lisp/url/url-mailto.el | 2 |
1 files changed, 1 insertions, 1 deletions
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) |