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

[Chong Yidong]

Index: emacs/lisp/url/url-mailto.el
diff -c emacs/lisp/url/url-mailto.el:1.13 emacs/lisp/url/url-mailto.el:1.14
*** emacs/lisp/url/url-mailto.el:1.13   Thu Sep 15 03:30:39 2005
--- emacs/lisp/url/url-mailto.el        Thu Sep 15 03:54:24 2005
***************
*** 92,98 ****
        (setq args (cons (list "to" to) args))))
  
      (setq subject (cdr-safe (assoc "subject" args)))
!     (if (fboundp url-mail-command) (funcall url-mail-command) (mail 'new))
      (while args
        (if (string= (caar args) "body")
          (progn
--- 92,102 ----
        (setq args (cons (list "to" to) args))))
  
      (setq subject (cdr-safe (assoc "subject" args)))
!     (if (fboundp url-mail-command)
!       (if (eq url-mail-command 'compose-mail)
!           (compose-mail nil nil nil 'new)
!         (funcall url-mail-command))
!       (mail 'new))
      (while args
        (if (string= (caar args) "body")
          (progn