Patch for tkrat 1.1

[maf@dtek.chalmers.se]

--8323328-269167349-885151780=:5361
Content-Type: TEXT/plain; CHARSET=US-ASCII

I have now made a patch for version 1.1 available. This fixes the
problems with closing the key definition window and some problems with
sending certain mails to a program mailer. I have uppdated all relevant
files on the ftp-server to include this patch. For your convenience I
include this patch in this letter as well.

This patch will change the version date to 19980118.

	/MaF

--8323328-269167349-885151780=:5361
Content-Type: TEXT/plain; CHARSET=US-ASCII
Content-Description: patch-1.1

*** doc/changes	Tue Jan 13 21:46:49 1998
--- new/doc/changes	Sat Jan 17 20:52:39 1998
***************
*** 1,6 ****
--- 1,12 ----
  This file lists the changes made to TkRat between versions. It is much
  more detailed than the changes shown to the user when starting a new version.
  
+ 980117:	(bug fix) TkRat did not esacpe lines containing a single dot when
+ 	sending to a prgram (but did for SMTP). Now it does.
+ 
+ 980115:	(bug fix) You got a tcl error when you closed the folder key
+ 	definition window.
+ 
  980113: ***** released version 1.1 *****
  
  981112:	(bug fix) Modified configuration so it works on RedHat 5.0 systems.
*** lib/ratSender.c	Sun Jan 11 19:01:54 1998
--- new/lib/ratSender.c	Sat Jan 17 20:52:40 1998
***************
*** 357,363 ****
  	} else {
  	    Tcl_DStringFree(&ds);
  	    ckfree(listArgv);
! 	    rfc822_output(buf, env, body, RatTclPuts, channel, i);
  	    Tcl_Close(interp, channel);
  	}
      } else {
--- 357,363 ----
  	} else {
  	    Tcl_DStringFree(&ds);
  	    ckfree(listArgv);
! 	    rfc822_output(buf, env, body, RatTclPutsSMTP, channel, i);
  	    Tcl_Close(interp, channel);
  	}
      } else {
*** tkrat/keydef.tcl	Sun Jan  4 13:22:34 1998
--- new/tkrat/keydef.tcl	Sun Jan 18 19:33:03 1998
***************
*** 264,270 ****
  	}
      }
      destroy $hd(w)
!     foreach bn [array names b $w.*] {unset b($bn)}
      unset hd
  
      if $changed {
--- 264,270 ----
  	}
      }
      destroy $hd(w)
!     foreach bn [array names b $hd(w).*] {unset b($bn)}
      unset hd
  
      if $changed {

--8323328-269167349-885151780=:5361--