Author: Alexander Zangerl <az@debian.org>
Subject: move ONLY internal scripts into /usr/share/exmh/ (via install(dir,bin)

diff -urNad exmh-2.7.2/lib/background.tcl /tmp/dpep.3P0hBe/exmh-2.7.2/lib/background.tcl
--- exmh-2.7.2/lib/background.tcl	Thu Jan 27 18:21:44 2005
+++ /tmp/dpep.3P0hBe/exmh-2.7.2/lib/background.tcl	Thu Jan 27 18:21:46 2005
@@ -95,8 +95,8 @@
 	Background_DoPeriodic
 	return
     }
-    global mh_path argv0 wish
-    set prog ${argv0}-bg
+    global mh_path argv0 wish install
+    set prog $install(dir,bin)/exmh-bg
     Exmh_Status "Starting: $prog"
     set cmd [list exec $wish -f $prog [winfo name .] $exmh(library) $mh_path &]
     if [catch {
diff -urNad exmh-2.7.2/lib/editor.tcl /tmp/dpep.3P0hBe/exmh-2.7.2/lib/editor.tcl
--- exmh-2.7.2/lib/editor.tcl	Thu Jan 27 18:21:44 2005
+++ /tmp/dpep.3P0hBe/exmh-2.7.2/lib/editor.tcl	Thu Jan 27 18:24:19 2005
@@ -316,7 +316,7 @@
 
 proc EditStart { draft {type prog} } {
     # Start the editor, reusing an existing session if possible
-    global editor exmh mhProfile pgp
+    global editor exmh mhProfile pgp install
 
     Exmh_Debug EditStart $draft $type
 
@@ -376,7 +376,7 @@
 	exmh-async* {
 	    global wish argv0
 	    Exmh_Status "Starting ASYNC $editor($type) ..." warn
-	    eval {exec $wish -f ${argv0}-async -- [winfo name .]} \
+	    eval {exec $wish -f $install(dir,bin)/exmh-async -- [winfo name .]} \
 		[lrange $editor($type) 1 end] {$draft &}
 	    return 0		;# Asynchronous edit
 	}
diff -urNad exmh-2.7.2/lib/seditExtras.tcl /tmp/dpep.3P0hBe/exmh-2.7.2/lib/seditExtras.tcl
--- exmh-2.7.2/lib/seditExtras.tcl	Thu Jan 27 18:21:45 2005
+++ /tmp/dpep.3P0hBe/exmh-2.7.2/lib/seditExtras.tcl	Thu Jan 27 18:22:52 2005
@@ -674,7 +674,7 @@
     destroy $f
 }
 proc SeditSpell { draft f t } {
-    global sedit editor wish argv0
+    global sedit editor wish argv0 install
     set parent [file root $f]
     if {[winfo exists $parent.spell]} {
 	destroy $parent.spell
diff -urNad exmh-2.7.2/lib/seditSel.tcl /tmp/dpep.3P0hBe/exmh-2.7.2/lib/seditSel.tcl
--- exmh-2.7.2/lib/seditSel.tcl	Thu Jan 27 18:21:45 2005
+++ /tmp/dpep.3P0hBe/exmh-2.7.2/lib/seditSel.tcl	Thu Jan 27 18:22:36 2005
@@ -130,7 +130,7 @@
 
 
 proc SeditSelSpell { f t } {
-    global sedit editor wish argv0
+    global sedit editor wish argv0 install
 
     set parent [file root $f]
     catch {[destroy $parent.spell]}
