Mercurial > emacs

comparison lisp/mail/mh-utils.el @ 22637:030c40f7d202

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(mh-find-progs): Avoid WTA error when mh-progs is nil. Give a clear specific error message instead.
author Richard M. Stallman <rms@gnu.org>
date Sun, 28 Jun 1998 22:52:49 +0000
parents 966308b754da
children 8532b00fb743
comparison
equal deleted inserted replaced
22636:f15c3c6ad8ae 22637:030c40f7d202
597 "/usr/new/mh/" ;Ultrix <4.2 597 "/usr/new/mh/" ;Ultrix <4.2
598 "/usr/contrib/mh/bin/" ;BSDI 598 "/usr/contrib/mh/bin/" ;BSDI
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
606 ;; components, then look for lib/mh or mh/lib. 608 ;; components, then look for lib/mh or mh/lib.
607 (or (let ((mh-base mh-progs)) 609 (or (let ((mh-base mh-progs))