# HG changeset patch
# User Chong Yidong <cyd@stupidchicken.com>
# Date 1126566136 0
# Node ID 5431d3ba10fd8c48820ff772a59bc83f4ce19247
# Parent  b7611654bd5e3587231859aadfa0ccd3bb9c0a37
2005-09-13  Chong Yidong  <cyd@stupidchicken.com>

	* url-mailto.el (url-mailto): Always use a new mail buffer.

diff -r b7611654bd5e -r 5431d3ba10fd lisp/url/ChangeLog
--- a/lisp/url/ChangeLog	Mon Sep 12 22:58:55 2005 +0000
+++ b/lisp/url/ChangeLog	Mon Sep 12 23:02:16 2005 +0000
@@ -1,3 +1,7 @@
+2005-09-13  Chong Yidong  <cyd@stupidchicken.com>
+
+	* url-mailto.el (url-mailto): Always use a new mail buffer.
+
 2005-09-01  Chong Yidong  <cyd@stupidchicken.com>
 
 	* url-util.el (url-parse-query-string): New optional argument
diff -r b7611654bd5e -r 5431d3ba10fd lisp/url/url-mailto.el
--- a/lisp/url/url-mailto.el	Mon Sep 12 22:58:55 2005 +0000
+++ b/lisp/url/url-mailto.el	Mon Sep 12 23:02:16 2005 +0000
@@ -92,7 +92,7 @@
 	(setq args (cons (list "to" to) args))))
 
     (setq subject (cdr-safe (assoc "subject" args)))
-    (if (fboundp url-mail-command) (funcall url-mail-command) (mail))
+    (if (fboundp url-mail-command) (funcall url-mail-command) (mail 'new))
     (while args
       (if (string= (caar args) "body")
 	  (progn