diff options
| author | Gerd Moellmann | 2001-07-19 13:04:43 +0000 |
|---|---|---|
| committer | Gerd Moellmann | 2001-07-19 13:04:43 +0000 |
| commit | 794d58ba0adb6efcd910297a0be18b0011b9260d (patch) | |
| tree | e669eb96faa2469bac0375b9d5f270b9636a4877 | |
| parent | b5b805999858f58ade40aca240d6c0cd06abce68 (diff) | |
| download | emacs-794d58ba0adb6efcd910297a0be18b0011b9260d.tar.gz emacs-794d58ba0adb6efcd910297a0be18b0011b9260d.zip | |
(mh-find-progs): Also search in `lib'.
From Mats Bengtsson <mats.bengtsson@s3.kth.se>,
| -rw-r--r-- | lisp/ChangeLog | 5 | ||||
| -rw-r--r-- | 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 @@ | |||
| 1 | 2001-07-19 Gerd Moellmann <gerd@gnu.org> | ||
| 2 | |||
| 3 | * mail/mh-utils.el (mh-find-progs): Also search in `lib'. | ||
| 4 | From Mats Bengtsson <mats.bengtsson@s3.kth.se>, | ||
| 5 | |||
| 1 | 2001-07-17 Pavel Jan,Bm(Bk <Pavel@Janik.cz> | 6 | 2001-07-17 Pavel Jan,Bm(Bk <Pavel@Janik.cz> |
| 2 | 7 | ||
| 3 | * international/iso-transl.el: Fix typo in the header of the file. | 8 | * 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 @@ | |||
| 1 | ;;; mh-utils.el --- mh-e code needed for both sending and reading | 1 | ;;; mh-utils.el --- mh-e code needed for both sending and reading |
| 2 | ;; Time-stamp: <2001-07-15 09:52:59 pavel> | ||
| 3 | 2 | ||
| 4 | ;; Copyright (C) 1993, 1995, 1997, 2000 Free Software Foundation, Inc. | 3 | ;; Copyright (C) 1993, 1995, 1997, 2000, 2001 Free Software Foundation, Inc. |
| 5 | 4 | ||
| 6 | ;; This file is part of GNU Emacs. | 5 | ;; This file is part of GNU Emacs. |
| 7 | 6 | ||
| @@ -636,7 +635,7 @@ directory names." | |||
| 636 | ;; components, then look for lib/mh or mh/lib. | 635 | ;; components, then look for lib/mh or mh/lib. |
| 637 | (or (mh-path-search | 636 | (or (mh-path-search |
| 638 | (mapcar (lambda (p) (expand-file-name p mh-base)) | 637 | (mapcar (lambda (p) (expand-file-name p mh-base)) |
| 639 | '("lib/mh" "etc/nmh" "/etc/nmh" "mh/lib" "etc")) | 638 | '("lib/mh" "etc/nmh" "/etc/nmh" "mh/lib" "etc" "lib")) |
| 640 | "components" | 639 | "components" |
| 641 | 'file-exists-p)))) | 640 | 'file-exists-p)))) |
| 642 | (or (and mh-lib-progs | 641 | (or (and mh-lib-progs |
| @@ -644,7 +643,7 @@ directory names." | |||
| 644 | (setq mh-lib-progs | 643 | (setq mh-lib-progs |
| 645 | (or (mh-path-search | 644 | (or (mh-path-search |
| 646 | (mapcar (lambda (p) (expand-file-name p mh-base)) | 645 | (mapcar (lambda (p) (expand-file-name p mh-base)) |
| 647 | '("lib/mh" "libexec/nmh" "lib/nmh" "mh/lib")) | 646 | '("lib/mh" "libexec/nmh" "lib/nmh" "mh/lib" "lib")) |
| 648 | "mhl") | 647 | "mhl") |
| 649 | (mh-path-search '("/usr/local/bin/mh/") "mhl") | 648 | (mh-path-search '("/usr/local/bin/mh/") "mhl") |
| 650 | (mh-path-search exec-path "mhl") ;unlikely | 649 | (mh-path-search exec-path "mhl") ;unlikely |