From: yamaoka <yamaoka>
Date: Mon, 3 Dec 2001 23:38:31 +0000 (+0000)
Subject: * mm-url.el: Require `path-util'.
X-Git-Tag: t-gnus-6_15_4-09-quimby-last-~42
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=a818aa877c66faa533ff4b34b2631139665df4a9;p=elisp%2Fgnus.git-

* 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
--- 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
--- 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)