*** original/subshell.c	Sun Oct 26 08:46:02 2003
--- subshell.c	Thu Jan 22 23:57:15 2004
***************
*** 233,242 ****
--- 233,248 ----
  
  	    /* Allow alternative readline settings for MC */
  	    if (access (".mc/inputrc", R_OK) == 0)
  		putenv ("INPUTRC=.mc/inputrc");
  
+             /* david: begin CDFILE */
+             char env_cdfile[128] = "";
+             sprintf (env_cdfile, "CDFILE=%s/.mc_cdfile", home_dir);
+             putenv (env_cdfile);
+             /* david: end CDFILE */
+ 
  	    break;
  
  	/* TODO: Find a way to pass initfile to TCSH and ZSH */
  	case TCSH: case ZSH:
        	    break;