diff options
author | Chong Yidong <cyd@stupidchicken.com> | 2005-09-15 03:54:24 +0000 |
---|---|---|
committer | Chong Yidong <cyd@stupidchicken.com> | 2005-09-15 03:54:24 +0000 |
commit | 8ded3f47ef31e9c7630663825d406430fd3eb61a (patch) | |
tree | 20b3a4bc2646028af1ad057b856caf9afd3e980a /lisp/url/url-mailto.el | |
parent | a9267c2cce8539a39c978e7219322be1e2af31f8 (diff) | |
download | emacs-8ded3f47ef31e9c7630663825d406430fd3eb61a.tar.gz |
2005-09-15 Chong Yidong <cyd@stupidchicken.com>
* url-mailto.el (url-mailto):
Call `compose-mail with `new' argument if possible.
Diffstat (limited to 'lisp/url/url-mailto.el')
-rw-r--r-- | lisp/url/url-mailto.el | 6 |
1 files changed, 5 insertions, 1 deletions
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 |