🚀 go-pugleaf

In paths.el, Emacs checks several possibilities trying to figure out
where the MH programs are.  It should check /usr/local/bin/ as well.

The test should be whether the directories are really directories, not
just whether they exist.

 < Stephen


diff -t -c2 paths.el-18.55 paths.el
*** paths.el-18.55      Sun Apr  2 00:25:24 1989
--- paths.el    Tue Nov  7 20:38:26 1989
***************
*** 39,52 ****

  (defvar mh-progs
!   (cond ((file-exists-p "/usr/new/mh") "/usr/new/mh/")
!         ((file-exists-p "/usr/local/bin/mh") "/usr/local/bin/mh/")
!         (t "/usr/local/mh/"))
!   "Directory containing MH commands")

  (defvar mh-lib
!   (cond ((file-exists-p "/usr/new/lib/mh") "/usr/new/lib/mh/")
!         ((file-exists-p "/usr/local/lib/mh") "/usr/local/lib/mh/")
          (t "/usr/local/bin/mh/"))
!   "Directory of MH library")

  (defconst rmail-file-name "~/RMAIL"
--- 39,53 ----

  (defvar mh-progs
!   (cond ((file-directory-p "/usr/new/mh/") "/usr/new/mh/")
!         ((file-directory-p "/usr/local/bin/mh/") "/usr/local/bin/mh/")
!         ((file-directory-p "/usr/local/mh/") "/usr/local/mh/")
!         (t "/usr/local/bin/"))
!   "Directory containing MH commands.")

  (defvar mh-lib
!   (cond ((file-directory-p "/usr/new/lib/mh/") "/usr/new/lib/mh/")
!         ((file-directory-p "/usr/local/lib/mh/") "/usr/local/lib/mh/")
          (t "/usr/local/bin/mh/"))
!   "Directory of MH library.")

  (defconst rmail-file-name "~/RMAIL"