diff options
| author | Richard M. Stallman <rms@gnu.org> | 1998-06-28 22:52:49 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 1998-06-28 22:52:49 +0000 |
| commit | fba78e50eb0cb571682d9b54c3c7ec9caa3ab578 (patch) | |
| tree | 72daa157d6dc0e349936468e2871521bc384267c /lisp/mail/mh-utils.el | |
| parent | a9e73449bf5654b680158a6a0019671746b2dd66 (diff) | |
| download | emacs-fba78e50eb0cb571682d9b54c3c7ec9caa3ab578.tar.gz | |
(mh-find-progs): Avoid WTA error
when mh-progs is nil. Give a clear specific error message instead.
Diffstat (limited to 'lisp/mail/mh-utils.el')
| -rw-r--r-- | lisp/mail/mh-utils.el | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/lisp/mail/mh-utils.el b/lisp/mail/mh-utils.el index bcbe2e6a0b5..3e008d5d8db 100644 --- a/lisp/mail/mh-utils.el +++ b/lisp/mail/mh-utils.el @@ -599,7 +599,9 @@ Set the `mh-progs' and `mh-lib' variables to the file names." "/usr/local/bin/" ) "inc")))) + (or (and mh-lib (mh-file-command-p (expand-file-name "mhl" mh-lib))) + (null mh-progs) (setq mh-lib ;; Look for a lib directory roughly parallel to the bin ;; directory: Strip any trailing `mh' or `bin' path |