Mercurial > emacs

changeset 95095:bf02306ea6d7

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(mh-find-path): Don't throw error if MH environment variable is being used (closes SF #1946861).
author Bill Wohler <wohler@newt.com>
date Mon, 19 May 2008 02:18:07 +0000
parents 8b5aa7cf7c71
children 6f67ecdd34a2
files lisp/mh-e/mh-utils.el
diffstat 1 files changed, 2 insertions(+), 3 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/mh-e/mh-utils.el	Mon May 19 01:54:32 2008 +0000
+++ b/lisp/mh-e/mh-utils.el	Mon May 19 02:18:07 2008 +0000
@@ -184,9 +184,8 @@
                (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)