[Emacs-diffs] Changes to emacs/lisp/url/url-mailto.el [lexbind]

[Miles Bader]

Index: emacs/lisp/url/url-mailto.el
diff -c emacs/lisp/url/url-mailto.el:1.3.2.4 
emacs/lisp/url/url-mailto.el:1.3.2.5
*** emacs/lisp/url/url-mailto.el:1.3.2.4        Mon Oct 25 04:19:35 2004
--- emacs/lisp/url/url-mailto.el        Mon Oct 25 04:22:24 2004
***************
*** 25,31 ****
  
  ;;; Code:
  
- (eval-when-compile (require 'cl))
  (require 'url-vars)
  (require 'url-parse)
  (require 'url-util)
--- 25,30 ----
***************
*** 85,91 ****
        (setq args (cons (list "x-url-from" source-url) args)))
  
      (if (assoc "to" args)
!       (push to (cdr (assoc "to" args)))
        (setq args (cons (list "to" to) args)))
      (setq subject (cdr-safe (assoc "subject" args)))
      (if (fboundp url-mail-command) (funcall url-mail-command) (mail))
--- 84,90 ----
        (setq args (cons (list "x-url-from" source-url) args)))
  
      (if (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))