1 files changed, 35 insertions, 19 deletions
diff --git a/comms/tkhylafax/files/patch-ab b/comms/tkhylafax/files/patch-ab
index e32112699866..792eef2adcf5 100644
--- a/comms/tkhylafax/files/patch-ab
+++ b/comms/tkhylafax/files/patch-ab
@@ -1,19 +1,35 @@
---- tkhylafax.orig	Tue Dec 31 02:49:43 1996
-+++ tkhylafax	Sun Jun  8 12:34:58 1997
-@@ -1,6 +1,6 @@
- #!/bin/sh
- #\
--exec wish "$0" ${1+"$@"}
-+exec wish8.2 "$0" ${1+"$@"}
- 
- #
- # 
-@@ -291,7 +291,7 @@
- 
- proc previewCover { args } {
- 
--    set faxcmd "[mkCover] | ghostview -"
-+    set faxcmd "[mkCover] | gv -"
- 
-     # Exec it
-     if {[catch {eval exec $faxcmd &} err]} {
+*** faxIt.t.org	Thu Jan 16 21:08:00 2003
+--- faxIt.t	Thu Jan 16 21:10:58 2003
+***************
+*** 66,80 ****
+  	          $Th_Info(notifyOnRetry)
+  
+      if {[string length $Th_Info(name)]} {
+-         # This MUST appear.
+- 	regsub -all {["'$\\]} $Th_Info(name) {\\&} name
+-         append options " -d \"$name@$Th_Info(phone)\""
+- 
+          # Make an ID string for later usage
+  	regsub -all {["'$\\]} $Th_Info(company) {\\&} company
+          append options " -i \"$name@$company\"" 
+      } else {
+!         # This MUST appear.
+          append options " -d $Th_Info(phone)"
+      }
+  
+--- 66,80 ----
+  	          $Th_Info(notifyOnRetry)
+  
+      if {[string length $Th_Info(name)]} {
+  	# Make an ID string for later usage
++ 	regsub -all {["'$\\]} $Th_Info(name) {\\&} name
+            regsub -all {["'$\\]} $Th_Info(company) {\\&} company
+  	append options " -i \"$name@$company\""
++ 
++ 	# This MUST appear last.
++ 	append options " -d \"$name@$Th_Info(phone)\""
+      } else {
+! 	# This MUST appear last.
+  	append options " -d $Th_Info(phone)"
+      }
+