procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

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

Browse source 
Don't test fboundp of `compose-mail'.
This commit is contained in:
Richard M. Stallman 2005-09-17 04:58:28 +00:00
parent cfbc3a32d7
commit 49b545fe33
1 changed files with 5 additions and 5 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

10
lisp/url/url-mailto.el
View file

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