[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] Changes to emacs/lisp/url/url-mailto.el [emacs-unicode-2]
From: |
Miles Bader |
Subject: |
[Emacs-diffs] Changes to emacs/lisp/url/url-mailto.el [emacs-unicode-2] |
Date: |
Fri, 22 Oct 2004 06:22:59 -0400 |
Index: emacs/lisp/url/url-mailto.el
diff -c emacs/lisp/url/url-mailto.el:1.4.2.1
emacs/lisp/url/url-mailto.el:1.4.2.2
*** emacs/lisp/url/url-mailto.el:1.4.2.1 Thu Oct 14 08:49:52 2004
--- emacs/lisp/url/url-mailto.el Fri Oct 22 10:13:34 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))