diff options
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) |