# HG changeset patch
# User Chong Yidong <cyd@stupidchicken.com>
# Date 1126756464 0
# Node ID 75da5ea5fb144b3112dcac066c322603ad156b6d
# Parent  4de96b605e5545d257b8a4449c504156edd0fa50
2005-09-15  Chong Yidong  <cyd@stupidchicken.com>

	* url-mailto.el (url-mailto):
	Call `compose-mail with `new' argument if possible.

diff -r 4de96b605e55 -r 75da5ea5fb14 lisp/url/ChangeLog
--- a/lisp/url/ChangeLog	Thu Sep 15 03:47:22 2005 +0000
+++ b/lisp/url/ChangeLog	Thu Sep 15 03:54:24 2005 +0000
@@ -2,6 +2,7 @@
 
 	* url-mailto.el (url-mailto): Delete mail buffer after sending
 	autogenerated mail.
+	Call `compose-mail with `new' argument if possible.
 
 2005-09-13  Chong Yidong  <cyd@stupidchicken.com>
 
diff -r 4de96b605e55 -r 75da5ea5fb14 lisp/url/url-mailto.el
--- a/lisp/url/url-mailto.el	Thu Sep 15 03:47:22 2005 +0000
+++ b/lisp/url/url-mailto.el	Thu Sep 15 03:54:24 2005 +0000
@@ -92,7 +92,11 @@
 	(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))
+    (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