From: ari <ari>
Date: Sun, 24 Nov 2002 14:26:03 +0000 (+0000)
Subject: * lisp/mm-url.el (mm-url-program): Use `exec-installed-p' instead of
X-Git-Tag: t-gnus-6_15_10-00~1
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=d4c763169a7e007f35bb3569c0d518971146828f;p=elisp%2Fgnus.git-

* lisp/mm-url.el (mm-url-program): Use `exec-installed-p' instead of
`executable-find'.
---

diff --git a/ChangeLog b/ChangeLog
index fcc3ca2..79622b9 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-10-30  TSUCHIYA Masatoshi  <tsuchiya@namazu.org>
 
 	* lisp/dgnushack.el (dgnushack-bind-colon-keywords): Protect
diff --git a/lisp/mm-url.el b/lisp/mm-url.el
index fb19b42..808a156 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"))