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

Don't test fboundp of `compose-mail'.

(url-mailto): Special case `mail'.
Don't test fboundp of `compose-mail'.
49b545fe · Richard M. Stallman · cfbc3a32 · 49b545fe
Commit 49b545fe authored Sep 17, 2005 by Richard M. Stallman
Hide whitespace changes
Inline Side-by-side

Showing with 5 additions and 5 deletions

lisp/url/url-mailto.el lisp/url/url-mailto.el +5 -5

No files found.
--- 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