Don't load cl.

(url-mailto): Fix call to `push'.

diff --git a/lisp/url/url-mailto.el b/lisp/url/url-mailto.el
index bcb6bad4179e989150b8f5d7b661fda81ece9df5..f5192bcb03fcd4db65146f61bea229b133b41990 100644 (file)
--- a/lisp/url/url-mailto.el
+++ b/lisp/url/url-mailto.el
@@ -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))