plugins-1.0: testsuite/conf/simple/Mailrc.conf

import System.Directory

resource = mail { 
--	editor = do b <- doesFileExist "/usr/bin/emacs"
--		    return $ if b then "emacs" else "vi" ,
	editor = do b <- doesFileExist "/bin/sh"
  		    return "sh",

	attribution = \name -> "Today, "++name++" wrote :"
}