diff options
| author | Richard M. Stallman | 2004-10-16 14:57:46 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 2004-10-16 14:57:46 +0000 |
| commit | 98c51cc53a5fb43423d025cf64e638328edf18e9 (patch) | |
| tree | e1754bc2adc91f12436e843fbfaf5946bf8f1639 | |
| parent | af3e7f786afc4d7f0775166b9260652dc6c46ec1 (diff) | |
| download | emacs-98c51cc53a5fb43423d025cf64e638328edf18e9.tar.gz emacs-98c51cc53a5fb43423d025cf64e638328edf18e9.zip | |
Don't load cl.
(url-mailto): Fix call to `push'.
| -rw-r--r-- | lisp/url/url-mailto.el | 3 |
1 files changed, 1 insertions, 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 @@ | |||
| 25 | 25 | ||
| 26 | ;;; Code: | 26 | ;;; Code: |
| 27 | 27 | ||
| 28 | (eval-when-compile (require 'cl)) | ||
| 29 | (require 'url-vars) | 28 | (require 'url-vars) |
| 30 | (require 'url-parse) | 29 | (require 'url-parse) |
| 31 | (require 'url-util) | 30 | (require 'url-util) |
| @@ -85,7 +84,7 @@ | |||
| 85 | (setq args (cons (list "x-url-from" source-url) args))) | 84 | (setq args (cons (list "x-url-from" source-url) args))) |
| 86 | 85 | ||
| 87 | (if (assoc "to" args) | 86 | (if (assoc "to" args) |
| 88 | (push to (cdr (assoc "to" args))) | 87 | (push (cdr (assoc "to" args)) to) |
| 89 | (setq args (cons (list "to" to) args))) | 88 | (setq args (cons (list "to" to) args))) |
| 90 | (setq subject (cdr-safe (assoc "subject" args))) | 89 | (setq subject (cdr-safe (assoc "subject" args))) |
| 91 | (if (fboundp url-mail-command) (funcall url-mail-command) (mail)) | 90 | (if (fboundp url-mail-command) (funcall url-mail-command) (mail)) |