File: exmhcomp

package info (click to toggle)
exmh 1:2.9.0-1
  • links: PTS
  • area: main
  • in suites: buster
  • size: 4,216 kB
  • sloc: tcl: 38,046; perl: 1,647; makefile: 130; sh: 101; exp: 75; csh: 9; sed: 2
file content (25 lines) | stat: -rw-r--r-- 567 bytes parent folder | download | duplicates (5)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
#!/usr/bin/wish

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

# if exmh isn't running , start it up and wait till it's there before continuing
if {[lsearch [winfo interps] $exmh_bin ]==-1} {
    exec $exmh_path/$exmh_bin -iconic 2>1 > /dev/null &
    while {[lsearch [winfo interps] $exmh_bin ]==-1} {
	after 200       
    }
}

if { 0 == [string length $argv] } {
    send exmh Msg_Compose
    exit 0
} else {
    if { 0 == [string first "mailto:" $argv 0] } {
	send exmh Msg_Mailto $argv
    } else {
	send exmh Msg_CompTo $argv
    }
    exit 0
}