Mercurial > emacs
changeset 38486:f97f856ea2b6
(mh-find-progs): Also search in `lib'.
From Mats Bengtsson <mats.bengtsson@s3.kth.se>,
| author | Gerd Moellmann <gerd@gnu.org> |
|---|---|
| date | Thu, 19 Jul 2001 13:04:23 +0000 |
| parents | d84559eced63 |
| children | b6d397fa9acb |
| files | lisp/mail/mh-utils.el |
| diffstat | 1 files changed, 3 insertions(+), 4 deletions(-) [+] |
line wrap: on
line diff
--- 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