Mercurial > emacs
changeset 65483:5431d3ba10fd
2005-09-13 Chong Yidong <cyd@stupidchicken.com>
* url-mailto.el (url-mailto): Always use a new mail buffer.
| author | Chong Yidong <cyd@stupidchicken.com> |
|---|---|
| date | Mon, 12 Sep 2005 23:02:16 +0000 |
| parents | b7611654bd5e |
| children | d4ba4c352e56 |
| files | lisp/url/ChangeLog lisp/url/url-mailto.el |
| diffstat | 2 files changed, 5 insertions(+), 1 deletions(-) [+] |
line wrap: on
line diff
--- 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
--- 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