2005-09-15 Chong Yidong <cyd@stupidchicken.com>

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

diff --git a/lisp/url/ChangeLog b/lisp/url/ChangeLog
index 5a9f209394259db93ccc68d3c451dbdd30b0b13d..c08d73739e9b64772495fb9f20ad001a5268ba52 100644 (file)
--- a/lisp/url/ChangeLog
+++ b/lisp/url/ChangeLog
@@ -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 --git a/lisp/url/url-mailto.el b/lisp/url/url-mailto.el
index 03770c6d977d71647f43482550483dc9a8e6787f..3b306bbcc8509fa2dfa14561b2dc3acf1fce8dcc 100644 (file)
--- a/lisp/url/url-mailto.el
+++ b/lisp/url/url-mailto.el
@@ -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