- defpath = concat (mypath, "/", mh_profile, NULL);
+
+ /*
+ * Find the user's profile. Check for the existence of an MH environment
+ * variable first with non-empty contents. Convert any relative path name
+ * found there to an absolute one. Look for the profile in the user's home
+ * directory if the MH environment variable isn't set.
+ */
+
+ if ((cp = getenv("MH")) && *cp != '\0')
+ defpath = path(cp, TFILE);
+ else
+ defpath = concat(mypath, "/", mh_profile, NULL);
+
+ /*
+ * Check for the existence of the profile file. It's an error if it exists and
+ * this isn't an installation check. An installation check fails if it does not
+ * exist, succeeds if it does.
+ */