diff options
| author | Richard M. Stallman | 1998-06-28 22:52:49 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 1998-06-28 22:52:49 +0000 |
| commit | fba78e50eb0cb571682d9b54c3c7ec9caa3ab578 (patch) | |
| tree | 72daa157d6dc0e349936468e2871521bc384267c | |
| parent | a9e73449bf5654b680158a6a0019671746b2dd66 (diff) | |
| download | emacs-fba78e50eb0cb571682d9b54c3c7ec9caa3ab578.tar.gz emacs-fba78e50eb0cb571682d9b54c3c7ec9caa3ab578.zip | |
(mh-find-progs): Avoid WTA error
when mh-progs is nil. Give a clear specific error message instead.
| -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." | |||
| 599 | "/usr/local/bin/" | 599 | "/usr/local/bin/" |
| 600 | ) | 600 | ) |
| 601 | "inc")))) | 601 | "inc")))) |
| 602 | |||
| 602 | (or (and mh-lib (mh-file-command-p (expand-file-name "mhl" mh-lib))) | 603 | (or (and mh-lib (mh-file-command-p (expand-file-name "mhl" mh-lib))) |
| 604 | (null mh-progs) | ||
| 603 | (setq mh-lib | 605 | (setq mh-lib |
| 604 | ;; Look for a lib directory roughly parallel to the bin | 606 | ;; Look for a lib directory roughly parallel to the bin |
| 605 | ;; directory: Strip any trailing `mh' or `bin' path | 607 | ;; directory: Strip any trailing `mh' or `bin' path |