diff options
| author | Richard M. Stallman | 1999-04-07 23:48:18 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 1999-04-07 23:48:18 +0000 |
| commit | 539eedecc07b992fdf0b2f0c300d5d186dcecebc (patch) | |
| tree | 096bde0a69844f3f8f19583d131111559c4a9d33 /lisp/mail | |
| parent | 2b09b4cecf61d4f3b3092a3970275d1e411c01fa (diff) | |
| download | emacs-539eedecc07b992fdf0b2f0c300d5d186dcecebc.tar.gz emacs-539eedecc07b992fdf0b2f0c300d5d186dcecebc.zip | |
(mh-find-progs): Try /etc/nmh and lib/nmh dirs.
Diffstat (limited to 'lisp/mail')
| -rw-r--r-- | lisp/mail/mh-utils.el | 10 |
1 files changed, 4 insertions, 6 deletions
diff --git a/lisp/mail/mh-utils.el b/lisp/mail/mh-utils.el index 8ef8bbf4ecf..7aa98b70687 100644 --- a/lisp/mail/mh-utils.el +++ b/lisp/mail/mh-utils.el | |||
| @@ -628,18 +628,16 @@ directory names." | |||
| 628 | ;; directory: Strip any trailing `mh' or `bin' path | 628 | ;; directory: Strip any trailing `mh' or `bin' path |
| 629 | ;; components, then look for lib/mh or mh/lib. | 629 | ;; components, then look for lib/mh or mh/lib. |
| 630 | (or (mh-path-search | 630 | (or (mh-path-search |
| 631 | (list (expand-file-name "lib/mh" mh-base) | 631 | (mapcar (lambda (p) (expand-file-name p mh-base)) |
| 632 | (expand-file-name "etc/nmh" mh-base) ; NetBSD | 632 | '("lib/mh" "etc/nmh" "/etc/nmh" "mh/lib")) |
| 633 | (expand-file-name "mh/lib" mh-base)) | ||
| 634 | "components" | 633 | "components" |
| 635 | 'file-exists-p)))) | 634 | 'file-exists-p)))) |
| 636 | (or (and mh-lib-progs | 635 | (or (and mh-lib-progs |
| 637 | (mh-file-command-p (expand-file-name "mhl" mh-lib-progs))) | 636 | (mh-file-command-p (expand-file-name "mhl" mh-lib-progs))) |
| 638 | (setq mh-lib-progs | 637 | (setq mh-lib-progs |
| 639 | (or (mh-path-search | 638 | (or (mh-path-search |
| 640 | (list (expand-file-name "lib/mh" mh-base) | 639 | (mapcar (lambda (p) (expand-file-name p mh-base)) |
| 641 | (expand-file-name "libexec/nmh" mh-base) ; NetBSD | 640 | '("lib/mh" "libexec/nmh" "lib/nmh" "mh/lib")) |
| 642 | (expand-file-name "mh/lib" mh-base)) | ||
| 643 | "mhl") | 641 | "mhl") |
| 644 | (mh-path-search '("/usr/local/bin/mh/") "mhl") | 642 | (mh-path-search '("/usr/local/bin/mh/") "mhl") |
| 645 | (mh-path-search exec-path "mhl") ;unlikely | 643 | (mh-path-search exec-path "mhl") ;unlikely |