Added check of -fcc with no fcc in components.

[nmh] / uip / repl.c

diff --git a/uip/repl.c b/uip/repl.c
index f97210c28759b3914440083b97f3847097dce50a..7f0c7bac8dba4db647f6fb8961e76e0cafa957b7 100644 (file)
--- a/uip/repl.c
+++ b/uip/repl.c
@@ -452,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)