From c8359e8fd5d0e3a774276a892d79cbe04aaf7e6c Mon Sep 17 00:00:00 2001 From: Chong Yidong Date: Mon, 12 Sep 2005 23:02:16 +0000 Subject: [PATCH] 2005-09-13 Chong Yidong * url-mailto.el (url-mailto): Always use a new mail buffer. --- lisp/url/ChangeLog | 4 ++++ lisp/url/url-mailto.el | 2 +- 2 files changed, 5 insertions(+), 1 deletion(-) diff --git a/lisp/url/ChangeLog b/lisp/url/ChangeLog index ad0ee150207..4235fe13e34 100644 --- a/lisp/url/ChangeLog +++ b/lisp/url/ChangeLog @@ -1,3 +1,7 @@ +2005-09-13 Chong Yidong + + * url-mailto.el (url-mailto): Always use a new mail buffer. + 2005-09-01 Chong Yidong * 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 3316b7c4b9d..d5f96184013 100644 --- 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 -- 2.39.2