Mercurial > emacs
changeset 57511:af0685917de3
Don't load cl.
(url-mailto): Fix call to `push'.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Sat, 16 Oct 2004 14:57:46 +0000 |
| parents | 9f80571c6c3e |
| children | 44bc5df842b7 |
| files | lisp/url/url-mailto.el |
| diffstat | 1 files changed, 1 insertions(+), 2 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/url/url-mailto.el Sat Oct 16 14:55:51 2004 +0000 +++ b/lisp/url/url-mailto.el Sat Oct 16 14:57:46 2004 +0000 @@ -25,7 +25,6 @@ ;;; Code: -(eval-when-compile (require 'cl)) (require 'url-vars) (require 'url-parse) (require 'url-util) @@ -85,7 +84,7 @@ (setq args (cons (list "x-url-from" source-url) args))) (if (assoc "to" args) - (push to (cdr (assoc "to" args))) + (push (cdr (assoc "to" args)) to) (setq args (cons (list "to" to) args))) (setq subject (cdr-safe (assoc "subject" args))) (if (fboundp url-mail-command) (funcall url-mail-command) (mail))