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 @@
(setq args (cons (list "to" to) args))))
(setq subject (cdr-safe (assoc "subject" args)))
(if (fboundp url-mail-command)
(if (eq url-mail-command 'compose-mail)
(compose-mail nil nil nil 'new)
(funcall url-mail-command))
(mail 'new))
(if (eq url-mail-command 'compose-mail)
(compose-mail nil nil nil 'new)
(if (eq url-mail-command 'mail)
(mail 'new)
(funcall url-mail-command)))
(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