diff options
| -rw-r--r-- | lisp/url/ChangeLog | 1 | ||||
| -rw-r--r-- | lisp/url/url-mailto.el | 6 |
2 files changed, 6 insertions, 1 deletions
diff --git a/lisp/url/ChangeLog b/lisp/url/ChangeLog index 5a9f2093942..c08d73739e9 100644 --- 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 03770c6d977..3b306bbcc85 100644 --- 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 |