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 | |
| 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')
| -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 |