Commit 49b545fe authored by Richard M. Stallman's avatar Richard M. Stallman

(url-mailto): Special case `mail'.

Don't test fboundp of `compose-mail'.
parent cfbc3a32
...@@ -92,11 +92,11 @@ ...@@ -92,11 +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) (if (eq url-mail-command 'compose-mail)
(if (eq url-mail-command 'compose-mail) (compose-mail nil nil nil 'new)
(compose-mail nil nil nil 'new) (if (eq url-mail-command 'mail)
(funcall url-mail-command)) (mail 'new)
(mail 'new)) (funcall url-mail-command)))
(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