(mh-find-path): Don't throw error if MH environment variable is being

used (closes SF #1946861).

diff --git a/lisp/mh-e/ChangeLog b/lisp/mh-e/ChangeLog
index a81f689d36ef050675b869b8b981c68ba6644d56..12997cd7741779971bcee374ead6dd0b01b0f026 100644 (file)
--- a/lisp/mh-e/ChangeLog
+++ b/lisp/mh-e/ChangeLog
@@ -1,3 +1,8 @@
+2008-05-19  Xavier Maillard <xma@gnu.org>  (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 <nicholas.dokos@hp.com>  (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 d330e60e5c105d18a5e7419e0f779e17b12e259f..08602b73466428085ec2ed95bd1e5a26bf1570b0 100644 (file)
--- 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)