From: Richard M. Stallman <rms@gnu.org>
Date: Sat, 17 Sep 2005 04:58:28 +0000 (+0000)
Subject: (url-mailto): Special case `mail'.
X-Git-Tag: emacs-pretest-22.0.90~7066
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=49b545fe3399bf23d9d6be90edb6f5c2e18e7f36;p=emacs.git

(url-mailto): Special case `mail'.
Don't test fboundp of `compose-mail'.
---

diff --git a/lisp/url/url-mailto.el b/lisp/url/url-mailto.el
index 3b306bbcc85..e9d5ff6fc15 100644
--- a/lisp/url/url-mailto.el
+++ b/lisp/url/url-mailto.el
@@ -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