Mercurial > emacs

changeset 24587:869c9511ad3c

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(mh-find-progs): Try /etc/nmh and lib/nmh dirs.
author Richard M. Stallman <rms@gnu.org>
date Wed, 07 Apr 1999 23:48:18 +0000
parents 07962af1ae68
children fdce161ec335
files lisp/mail/mh-utils.el
diffstat 1 files changed, 4 insertions(+), 6 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/mail/mh-utils.el	Wed Apr 07 23:45:36 1999 +0000
+++ b/lisp/mail/mh-utils.el	Wed Apr 07 23:48:18 1999 +0000
@@ -628,18 +628,16 @@
 		  ;; 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