From 8ded3f47ef31e9c7630663825d406430fd3eb61a Mon Sep 17 00:00:00 2001 From: Chong Yidong Date: Thu, 15 Sep 2005 03:54:24 +0000 Subject: [PATCH] 2005-09-15 Chong Yidong * url-mailto.el (url-mailto): Call `compose-mail with `new' argument if possible. --- lisp/url/ChangeLog | 1 + lisp/url/url-mailto.el | 6 +++++- 2 files changed, 6 insertions(+), 1 deletion(-) 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 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 -- 2.39.2