From 98c51cc53a5fb43423d025cf64e638328edf18e9 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Sat, 16 Oct 2004 14:57:46 +0000 Subject: [PATCH] Don't load cl. (url-mailto): Fix call to `push'. --- lisp/url/url-mailto.el | 3 +-- 1 file changed, 1 insertion(+), 2 deletions(-) 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)) -- 2.39.5