From: ari <ari>
Date: Sun, 24 Nov 2002 13:48:37 +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-quimby~78
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=2c16b5267e010fdca7898d3053ce8ca9a84a0ad8;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 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"))