#!/p/tcl-8.3/bin/wish
# Use: ExmhSwitchFolder folder [Msg_ShowUnseen]
# Folder must not have the + sign. If Msg_ShowUnseen is given, the
# first unread message in the folder is shown
# Diego Zamboni, Oct 2000.

set exmh_path /usr/local/exmh-2.2/bin
set exmh_bin exmh
wm withdraw .

# if exmh isn't running , start it up
if {[lsearch [winfo interps] $exmh_bin ]==-1} {
    exec $exmh_path/$exmh_bin  > /dev/null &
    while {[lsearch [winfo interps] $exmh_bin ]==-1} {
	after 200       
    }
}

if { 0 == [string length $argv] } {
        # do nothing
} else {
	send exmh Folder_Change $argv
}
exit 0
