# HG changeset patch
# User Gerd Moellmann <gerd@gnu.org>
# Date 995547863 0
# Node ID f97f856ea2b6e953b29bc49016704fedbf62506e
# Parent  d84559eced63ce90ba92b4d4fff08c8cc89a255f
(mh-find-progs): Also search in `lib'.
From Mats Bengtsson <mats.bengtsson@s3.kth.se>,

diff -r d84559eced63 -r f97f856ea2b6 lisp/mail/mh-utils.el
--- a/lisp/mail/mh-utils.el	Thu Jul 19 11:20:40 2001 +0000
+++ b/lisp/mail/mh-utils.el	Thu Jul 19 13:04:23 2001 +0000
@@ -1,7 +1,6 @@
 ;;; mh-utils.el --- mh-e code needed for both sending and reading
-;; Time-stamp: <2001-07-15 09:52:59 pavel>
 
-;; Copyright (C) 1993, 1995, 1997, 2000 Free Software Foundation, Inc.
+;; Copyright (C) 1993, 1995, 1997, 2000, 2001 Free Software Foundation, Inc.
 
 ;; This file is part of GNU Emacs.
 
@@ -636,7 +635,7 @@
 		  ;; components, then look for lib/mh or mh/lib.
 		  (or (mh-path-search
 		       (mapcar (lambda (p) (expand-file-name p mh-base))
-			       '("lib/mh" "etc/nmh" "/etc/nmh" "mh/lib" "etc"))
+			       '("lib/mh" "etc/nmh" "/etc/nmh" "mh/lib" "etc" "lib"))
 		       "components"
 		       'file-exists-p))))
 	(or (and mh-lib-progs
@@ -644,7 +643,7 @@
 	    (setq mh-lib-progs
 		  (or (mh-path-search
 		       (mapcar (lambda (p) (expand-file-name p mh-base))
-			       '("lib/mh" "libexec/nmh" "lib/nmh" "mh/lib"))
+			       '("lib/mh" "libexec/nmh" "lib/nmh" "mh/lib" "lib"))
 		       "mhl")
 		      (mh-path-search '("/usr/local/bin/mh/") "mhl")
 		      (mh-path-search exec-path "mhl") ;unlikely