* 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 (file)
--- 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\e,A_\e(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 (file)
--- 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"))