--- /dev/null   Fri May  6 15:26:19 2005
+++ exmh2/files/patch-lib-folder.tcl    Fri May  6 15:18:19 2005
@@ -0,0 +1,41 @@
+diff -c -r1.34 folder.tcl
+*** lib/folder.tcl     29 Dec 2004 23:53:53 -0000      1.34
+--- lib/folder.tcl     24 Jan 2005 21:21:38 -0000
+***************
+*** 311,327 ****
+
+      set out [open $fn w]
+      puts $out "wm withdraw ."
+!     puts $out "source $exmh(library)/folder.tcl"
+      puts $out [list set mhProfile(delprefix) $mhProfile(delprefix)]
+      puts $out [list set mhProfile(purgeage) $mhProfile(purgeage)]
+      puts $out [list set mhProfile(path) $mhProfile(path)]
+!     puts $out "proc Exmh_Status { s } \{catch \{send \"[winfo name .]\" \[list Exmh_Status \$s]\}\}"
+      puts $out "proc Exmh_Debug { args } {}"
+!     puts $out [list proc File_Delete [info args File_Delete] [info body File_Delete]]
+      foreach folder $folderlist {
+!      puts $out "Folder_Purge $folder"
+      }
+!     puts $out "File_Delete $fn"
+      puts $out exit
+      close $out
+      exec $wish -f $fn &
+--- 311,327 ----
+
+      set out [open $fn w]
+      puts $out "wm withdraw ."
+!     puts $out [list lappend auto_path $exmh(library)]
+      puts $out [list set mhProfile(delprefix) $mhProfile(delprefix)]
+      puts $out [list set mhProfile(purgeage) $mhProfile(purgeage)]
+      puts $out [list set mhProfile(path) $mhProfile(path)]
+!     puts $out "proc Exmh_Status { s args } \{catch \{send \"[winfo name .]\" \[list Exmh_Status \$s]\}\}"
+      puts $out "proc Exmh_Debug { args } {}"
+!     puts $out "Env_Init"
+      foreach folder $folderlist {
+!      puts $out [list Folder_Purge $folder]
+      }
+!     puts $out [list File_Delete $fn]
+      puts $out exit
+      close $out
+      exec $wish -f $fn &
+