From: Gerd Moellmann <gerd@gnu.org>
Date: Thu, 19 Jul 2001 13:04:43 +0000 (+0000)
Subject: (mh-find-progs): Also search in `lib'.
X-Git-Tag: emacs-pretest-21.0.105~445
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=794d58ba0adb6efcd910297a0be18b0011b9260d;p=emacs.git

(mh-find-progs): Also search in `lib'.
From Mats Bengtsson <mats.bengtsson@s3.kth.se>,
---

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 244414109ca..99384062d4e 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2001-07-19  Gerd Moellmann  <gerd@gnu.org>
+
+	* mail/mh-utils.el (mh-find-progs): Also search in `lib'.
+	From Mats Bengtsson <mats.bengtsson@s3.kth.se>,
+	
 2001-07-17  Pavel Jan,Bm(Bk  <Pavel@Janik.cz>
 
 	* international/iso-transl.el: Fix typo in the header of the file.
diff --git a/lisp/mail/mh-utils.el b/lisp/mail/mh-utils.el
index 8dd5ef3a163..51cc1b44ee2 100644
--- a/lisp/mail/mh-utils.el
+++ b/lisp/mail/mh-utils.el
@@ -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 @@ directory names."
 		  ;; 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 @@ directory names."
 	    (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