From 794d58ba0adb6efcd910297a0be18b0011b9260d Mon Sep 17 00:00:00 2001 From: Gerd Moellmann Date: Thu, 19 Jul 2001 13:04:43 +0000 Subject: [PATCH] (mh-find-progs): Also search in `lib'. From Mats Bengtsson , --- lisp/ChangeLog | 5 +++++ lisp/mail/mh-utils.el | 7 +++---- 2 files changed, 8 insertions(+), 4 deletions(-) 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 + + * mail/mh-utils.el (mh-find-progs): Also search in `lib'. + From Mats Bengtsson , + 2001-07-17 Pavel Jan,Bm(Bk * 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 -- 2.39.2