Commit 8ded3f47 authored by Chong Yidong's avatar Chong Yidong
Browse files

2005-09-15 Chong Yidong <cyd@stupidchicken.com>

	* url-mailto.el (url-mailto):
	Call `compose-mail with `new' argument if possible.
parent a9267c2c
...@@ -2,6 +2,7 @@ ...@@ -2,6 +2,7 @@
* url-mailto.el (url-mailto): Delete mail buffer after sending * url-mailto.el (url-mailto): Delete mail buffer after sending
autogenerated mail. autogenerated mail.
Call `compose-mail with `new' argument if possible.
2005-09-13 Chong Yidong <cyd@stupidchicken.com> 2005-09-13 Chong Yidong <cyd@stupidchicken.com>
......
...@@ -92,7 +92,11 @@ ...@@ -92,7 +92,11 @@
(setq args (cons (list "to" to) args)))) (setq args (cons (list "to" to) args))))
(setq subject (cdr-safe (assoc "subject" 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 (while args
(if (string= (caar args) "body") (if (string= (caar args) "body")
(progn (progn
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment