Mercurial > emacs

changeset 65558:b0580e2544c0

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(url-mailto): Special case `mail'. Don't test fboundp of `compose-mail'.
author Richard M. Stallman <rms@gnu.org>
date Sat, 17 Sep 2005 04:58:28 +0000
parents 78b8aa2e7963
children 02ea691fea58
files lisp/url/url-mailto.el
diffstat 1 files changed, 5 insertions(+), 5 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/url/url-mailto.el	Fri Sep 16 22:57:12 2005 +0000
+++ b/lisp/url/url-mailto.el	Sat Sep 17 04:58:28 2005 +0000
@@ -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