From b78a11dc14001e2121a9f03a899bae02f4054196 Mon Sep 17 00:00:00 2001 From: Bill Wohler Date: Mon, 19 May 2008 02:18:24 +0000 Subject: [PATCH] (mh-find-path): Don't throw error if MH environment variable is being used (closes SF #1946861). --- lisp/mh-e/ChangeLog | 5 +++++ lisp/mh-e/mh-utils.el | 5 ++--- 2 files changed, 7 insertions(+), 3 deletions(-) diff --git a/lisp/mh-e/ChangeLog b/lisp/mh-e/ChangeLog index a81f689d36e..12997cd7741 100644 --- a/lisp/mh-e/ChangeLog +++ b/lisp/mh-e/ChangeLog @@ -1,3 +1,8 @@ +2008-05-19 Xavier Maillard (tiny change) + + * mh-utils.el (mh-find-path): Don't throw error if MH environment + variable is being used (closes SF #1946861). + 2008-05-19 Nick Dokos (tiny change) * mh-search.el (mh-mairix-regexp-builder): Add additional items to diff --git a/lisp/mh-e/mh-utils.el b/lisp/mh-e/mh-utils.el index d330e60e5c1..08602b73466 100644 --- a/lisp/mh-e/mh-utils.el +++ b/lisp/mh-e/mh-utils.el @@ -184,9 +184,8 @@ MH-E." (getenv "MH"))) (if (null (mh-variants)) (error "Install MH and run install-mh before running MH-E")) - (let ((profile "~/.mh_profile")) - (if (not (file-readable-p profile)) - (error "Run install-mh before running MH-E"))) + (if (not (or (getenv "MH") (file-readable-p "~/.mh_profile"))) + (error "Run install-mh before running MH-E")) ;; Read MH profile. (setq mh-user-path (mh-profile-component "Path")) (if (not mh-user-path) -- 2.39.2