(mh-find-progs): Also search in `lib'.

From Mats Bengtsson <mats.bengtsson@s3.kth.se>,

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 244414109cab23b2e257c4da40aea87beed4f667..99384062d4e75cee8941a006c39c40b1429e8efa 100644 (file)
--- 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\e,Bm\e(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 8dd5ef3a163acc548a411a52ddce4a7092889d58..51cc1b44ee2a4f6778598d7637101a563515bd30 100644 (file)
--- 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