From 539eedecc07b992fdf0b2f0c300d5d186dcecebc Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Wed, 7 Apr 1999 23:48:18 +0000 Subject: [PATCH] (mh-find-progs): Try /etc/nmh and lib/nmh dirs. --- lisp/mail/mh-utils.el | 10 ++++------ 1 file changed, 4 insertions(+), 6 deletions(-) diff --git a/lisp/mail/mh-utils.el b/lisp/mail/mh-utils.el index 8ef8bbf4ecf..7aa98b70687 100644 --- a/lisp/mail/mh-utils.el +++ b/lisp/mail/mh-utils.el @@ -628,18 +628,16 @@ directory names." ;; directory: Strip any trailing `mh' or `bin' path ;; components, then look for lib/mh or mh/lib. (or (mh-path-search - (list (expand-file-name "lib/mh" mh-base) - (expand-file-name "etc/nmh" mh-base) ; NetBSD - (expand-file-name "mh/lib" mh-base)) + (mapcar (lambda (p) (expand-file-name p mh-base)) + '("lib/mh" "etc/nmh" "/etc/nmh" "mh/lib")) "components" 'file-exists-p)))) (or (and mh-lib-progs (mh-file-command-p (expand-file-name "mhl" mh-lib-progs))) (setq mh-lib-progs (or (mh-path-search - (list (expand-file-name "lib/mh" mh-base) - (expand-file-name "libexec/nmh" mh-base) ; NetBSD - (expand-file-name "mh/lib" mh-base)) + (mapcar (lambda (p) (expand-file-name p mh-base)) + '("lib/mh" "libexec/nmh" "lib/nmh" "mh/lib")) "mhl") (mh-path-search '("/usr/local/bin/mh/") "mhl") (mh-path-search exec-path "mhl") ;unlikely -- 2.39.2