*** /local/share/exmh-2.0/inc.tcl	Tue Jan  6 17:31:17 1998
--- inc.tcl	Tue Jan  6 17:35:07 1998
***************
*** 50,60 ****
  	{inc(xnsgetmail) xnsGetMail OFF	  {Run xnsgetmail -k}
  "Run xnsgetmail -k before inc in order to fetch your
  XNS mail messages into your UNIX spool file."}
      }
  }
  proc Inc_Startup {} {
      global inc
!     if {! $inc(onStartup) || $inc(style) == "multidrop"} {
  	Exmh_Status "Checking folders"
  	Flist_FindUnseen
      }
--- 50,67 ----
  	{inc(xnsgetmail) xnsGetMail OFF	  {Run xnsgetmail -k}
  "Run xnsgetmail -k before inc in order to fetch your
  XNS mail messages into your UNIX spool file."}
+ 	{inc(startupflist) incStartupFlist {CHOICE default on off}	{Do a FList on startup}
+ "This option determines whether exmh performs an FList operation to find
+ all unread MH message on startup. On or off have the obvious effects;
+ default performs a FList if you're using multidrop or if you don't have
+ inc on startup on."}
      }
  }
  proc Inc_Startup {} {
      global inc
!     if {$inc(startupflist) == "on" ||
! 	($inc(startupflist) == "default" &&
! 	(! $inc(onStartup) || $inc(style) == "multidrop"))} {
  	Exmh_Status "Checking folders"
  	Flist_FindUnseen
      }