'set novalue on'  /* force KEXX and its way of SIGNAL ON NOVALUE  */

/* Usage:         [MACRO] TRASH                                   */
/* Purpose:       Show netscape's mail directory tree excl. *.snm */
/* Requires:      Kedit 5.0, TREE.KEX     (Frank Ellermann, 2002) */

   MAIL = 'd:\installed\netscape\mail' ;
   'macro tree' MAIL                   ;  if rc <> 0 then exit rc
   'all /.snm/'                        ;  if rc <> 0 then exit rc
   'del all'   ;  'nomsg all /.dat/'   ;  if rc =  0 then 'del all'
   'nomsg dirapp' MAIL || '\sort.dat'  ;  '*-1 del'
   'all'       ;  'dirsort date'       ;  ':0 nomsg recover'