From: Richard M. Stallman <rms@gnu.org>
Date: Sat, 16 Oct 2004 14:57:46 +0000 (+0000)
Subject: Don't load cl.
X-Git-Tag: ttn-vms-21-2-B4~4558
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=98c51cc53a5fb43423d025cf64e638328edf18e9;p=emacs.git

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 bcb6bad4179..f5192bcb03f 100644
--- 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))