From a818aa877c66faa533ff4b34b2631139665df4a9 Mon Sep 17 00:00:00 2001 From: yamaoka Date: Mon, 3 Dec 2001 23:38:31 +0000 Subject: [PATCH] * mm-url.el: Require `path-util'. (mm-url-program): Replace `executable-find' to `exec-installed-p'. --- ChangeLog | 5 +++++ lisp/mm-url.el | 12 +++++++----- 2 files changed, 12 insertions(+), 5 deletions(-) diff --git a/ChangeLog b/ChangeLog index cfca5e0..819d6b8 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,3 +1,8 @@ +2001-12-03 Katsumi Yamaoka + + * lisp/mm-url.el: Require `path-util'. + (mm-url-program): Replace `executable-find' to `exec-installed-p'. + 2001-11-29 Katsumi Yamaoka * 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) -- 1.7.10.4