[Emacs-commit] emacs/lisp/mh-e mh-utils.el

[Bill Wohler]

CVSROOT:        /cvsroot/emacs
Module name:    emacs
Changes by:     Bill Wohler <wohler>    08/05/19 02:18:07

Modified files:
        lisp/mh-e      : mh-utils.el 

Log message:
        (mh-find-path): Don't throw error if MH environment variable is being
        used (closes SF #1946861).

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/mh-e/mh-utils.el?cvsroot=emacs&r1=1.71&r2=1.72

Patches:
Index: mh-utils.el
===================================================================
RCS file: /cvsroot/emacs/emacs/lisp/mh-e/mh-utils.el,v
retrieving revision 1.71
retrieving revision 1.72
diff -u -b -r1.71 -r1.72
--- mh-utils.el 6 May 2008 03:56:49 -0000       1.71
+++ mh-utils.el 19 May 2008 02:18:07 -0000      1.72
@@ -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)