Re: folder_purge

Michael David Sullivan wrote:
> I don't have any solutions, but I get the same thing on Solaris:
> 
> 
> Error in startup script: invalid command name "Env_Tmp"
>     while executing
> "Env_Tmp"
>     (procedure "Folder_Purge" line 7)
>     invoked from within
> "Folder_Purge inbox"
>     (file "/tmp/username/exmh.1646.purge.0" line 17)

Stucked with the same problem I made a patch which works.
No idea if it is clean and/or safe but it is simple and works.
I attached it (if attachments are allowed).

exmh is becoming pretty old now but it is still my favorite, even
with troubles regarding internationalisation (iso-8859-15 and
utf-8 in the scan listing).

					Anne

P.S. As I didn't see this mail in the list, I resend it.

- -- 
Anne Possoz, Domaine IT-GE            Espace logiciel libre à l'Ecole
Ecole Polytechnique Fédérale de Lausanne, 1015 Lausanne (Switzerland)

_______________________________________________
Exmh-users mailing list
[email protected]
https://www.redhat.com/mailman/listinfo/exmh-users

*** orig/folder.tcl	2006-01-14 02:58:19.000000000 +0100
--- folder.tcl	2006-01-17 23:32:47.000000000 +0100
***************
*** 258,263 ****
--- 258,264 ----
  	set folder $exmh(folder)
      }
      set uid 0
+     
      while {[file exists [set fn [Env_Tmp]/exmh.[pid].touch.$uid]]} {
  	incr uid
      }
***************
*** 312,317 ****
--- 313,320 ----
      set out [open $fn w]
      puts $out "wm withdraw ."
      puts $out "source $exmh(library)/folder.tcl"
+     puts $out "source $exmh(library)/env.tcl"
+     puts $out [list set exmh(tmpdir) $exmh(tmpdir)]
      puts $out [list set mhProfile(delprefix) $mhProfile(delprefix)]
      puts $out [list set mhProfile(purgeage) $mhProfile(purgeage)]
      puts $out [list set mhProfile(path) $mhProfile(path)]