X-Git-Url: https://diplodocus.org/git/nmh/blobdiff_plain/282e8606742769b8d641348347a348e62bfbdfb5..dc8279c2b87289bc6bc1cc4a04a719615c9d675d:/uip/repl.c

diff --git a/uip/repl.c b/uip/repl.c
index 72d3ddbe..7f0c7bac 100644
--- a/uip/repl.c
+++ b/uip/repl.c
@@ -239,8 +239,7 @@ main (int argc, char **argv)
 		    if (fcc)
 			fcc = add (", ", fcc);
 		    fcc = add (cp, fcc);
-		    if (dp)
-			free (dp);
+                    mh_xfree(dp);
 		    continue;
 
 		case FILESW: 
@@ -453,14 +452,16 @@ try_it_again:
     fclose (in);
 
     {
-	char *filename = concat (mp->foldpath, "/", msg, NULL);
+        char *filename = file ? file : concat (mp->foldpath, "/", msg, NULL);
 
         for (n = 0; n < svector_size (convert_types); ++n) {
             add_convert_header (svector_at (convert_types, n),
                                 svector_at (convert_args, n),
                                 filename, drft);
         }
-	free (filename);
+        if (! file) {
+            free (filename);
+        }
     }
 
     if (nwhat)