[Emacs-diffs] Changes to emacs/lisp/url/url-mailto.el,v

[Stefan Monnier]

CVSROOT:        /sources/emacs
Module name:    emacs
Changes by:     Stefan Monnier <monnier>        07/08/31 16:40:05

Index: url-mailto.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/url/url-mailto.el,v
retrieving revision 1.19
retrieving revision 1.20
diff -u -b -r1.19 -r1.20
--- url-mailto.el       26 Jul 2007 05:27:36 -0000      1.19
+++ url-mailto.el       31 Aug 2007 16:40:05 -0000      1.20
@@ -66,7 +66,7 @@
   (if (url-user url)
       ;; malformed mailto URL (mailto://address@hidden) instead of
       ;; mailto:address@hidden
-      (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)