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

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

diff --git a/lisp/url/ChangeLog b/lisp/url/ChangeLog
index ad0ee15020795a6958318ee4302f74249d9b609c..4235fe13e34b15c5b98e0db05afd5080901aa711 100644 (file)
--- a/lisp/url/ChangeLog
+++ b/lisp/url/ChangeLog
@@ -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 --git a/lisp/url/url-mailto.el b/lisp/url/url-mailto.el
index 3316b7c4b9dcb9e58da5f2050a470a0c7aaae1ac..d5f96184013f9bf8050f6449d38970394d9f7435 100644 (file)
--- a/lisp/url/url-mailto.el
+++ b/lisp/url/url-mailto.el
@@ -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