From 2c16b5267e010fdca7898d3053ce8ca9a84a0ad8 Mon Sep 17 00:00:00 2001
From: ari <ari>
Date: Sun, 24 Nov 2002 13:48:37 +0000
Subject: [PATCH] * lisp/mm-url.el (mm-url-program): Use `exec-installed-p'
 instead of `executable-find'.

---
 ChangeLog      |    5 +++++
 lisp/mm-url.el |    2 +-
 2 files changed, 6 insertions(+), 1 deletion(-)

diff --git a/ChangeLog b/ChangeLog
index f3db11c..55d5d59 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,8 @@
+2002-11-24  ARISAWA Akihiro  <ari@mbf.sphere.ne.jp>
+
+	* lisp/mm-url.el (mm-url-program): Use `exec-installed-p' instead of
+	`executable-find'.
+
 2002-11-13  Kai Gro,A_(Bjohann  <kai.grossjohann@uni-duisburg.de>
 
 	* etc/smilies/blink.xpm: Changed smileys and some new ones from
diff --git a/lisp/mm-url.el b/lisp/mm-url.el
index c7f08be..37dfc0c 100644
--- a/lisp/mm-url.el
+++ b/lisp/mm-url.el
@@ -58,7 +58,7 @@
 (defcustom mm-url-program
   (cond
    ((exec-installed-p "wget") 'wget)
-   ((executable-find "w3m") 'w3m)
+   ((exec-installed-p "w3m") 'w3m)
    ((exec-installed-p "lynx") 'lynx)
    ((exec-installed-p "curl") 'curl)
    (t "GET"))
-- 
1.7.10.4