* mm-url.el: Require `path-util'.

(mm-url-program): Replace `executable-find' to `exec-installed-p'.

diff --git a/ChangeLog b/ChangeLog
index cfca5e0..819d6b8 100644 (file)
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,8 @@
+2001-12-03  Katsumi Yamaoka  <yamaoka@jpl.org>
+
+       * lisp/mm-url.el: Require `path-util'.
+       (mm-url-program): Replace `executable-find' to `exec-installed-p'.
+
 2001-11-29  Katsumi Yamaoka  <yamaoka@jpl.org>
 
        * lisp/gnus-vers.el (gnus-revision-number): Increment to 09.

diff --git a/lisp/mm-url.el b/lisp/mm-url.el
index 39bf776..18233bf 100644 (file)
--- a/lisp/mm-url.el
+++ b/lisp/mm-url.el
@@ -31,6 +31,8 @@
 
 (require 'mm-util)
 
+(require 'path-util)
+
 (eval-when-compile (require 'cl))
 
 (eval-and-compile
@@ -53,14 +55,14 @@
     (lynx "lynx" "-source")
     (curl "curl")))
 
-(defcustom mm-url-program 
+(defcustom mm-url-program
   (cond
-   ((executable-find "wget") 'wget)
-   ((executable-find "lynx") 'lynx)
-   ((executable-find "curl") 'curl)
+   ((exec-installed-p "wget") 'wget)
+   ((exec-installed-p "lynx") 'lynx)
+   ((exec-installed-p "curl") 'curl)
    (t "GET"))
   "The url grab program."
-  :type '(choice 
+  :type '(choice
          (symbol :tag "wget" wget)
          (symbol :tag "lynx" lynx)
          (symbol :tag "curl" curl)