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 @@
* 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>
......
......@@ -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
......
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