X-Git-Url: https://diplodocus.org/git/nmh/blobdiff_plain/b56c88e2847c582f9b18ae5bbda44f033cd49c42..803f25412:/uip/install-mh.c?ds=inline

diff --git a/uip/install-mh.c b/uip/install-mh.c
index 12377352..ce8e2940 100644
--- a/uip/install-mh.c
+++ b/uip/install-mh.c
@@ -166,7 +166,9 @@ query:
 	}
     }
 
-    chdir (mypath);
+    if (chdir (mypath) < 0) {
+	advise (mypath, "chdir");
+    }
     if (chdir (pathname) == NOTOK) {
 	cp = concat ("\"", pathname, "\" doesn't exist; Create it? ", NULL);
 	if (autof || gans (cp, anoyes))
@@ -206,6 +208,13 @@ query:
      */
     if ((out = fopen (defpath, "w")) == NULL)
 	adios (defpath, "unable to write");
+    /*
+     * The main purpose of this first line is to fool file(1).
+     * Without it, if the first line of the profile is Path:,
+     * file 5.19 reports its type as message/news.  With it,
+     * it reports the type as text/plain.
+     */
+    fprintf (out, "MH-Profile-Version: 1.0\n");
     for (np = m_defs; np; np = np->n_next) {
 	if (!np->n_context)
 	    fprintf (out, "%s: %s\n", np->n_name, np->n_field);