Fix typo: the word `transact' has two `a's in it. Remarkably, I

managed to mistype it in both the definition and use of TRANSCT-SMTP,
which must be why no one noticed.

diff --git a/v7/src/edwin/sendmail.scm b/v7/src/edwin/sendmail.scm
index cc4d0594f5fc5bd79d0b4e98bfa74fe1384b2dc9..ac0e2cf9e49b537f9f8fbd01c3b588761c84fe75 100644 (file)
--- a/v7/src/edwin/sendmail.scm
+++ b/v7/src/edwin/sendmail.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: sendmail.scm,v 1.95 2008/05/05 04:42:08 cph Exp $
+$Id: sendmail.scm,v 1.96 2008/05/19 05:18:21 riastradh Exp $
 
 Copyright (C) 1986, 1987, 1988, 1989, 1990, 1991, 1992, 1993, 1994,
     1995, 1996, 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004, 2005,
@@ -973,10 +973,10 @@ the user from the mailer."
         (and (ref-variable smtp-trace lookup-context)
              (temporary-buffer "*SMTP-trace*"))))
     (let ((responses
-          (transct-smtp recipients
-                        message-pathname
-                        trace-buffer
-                        lookup-context)))
+          (transact-smtp recipients
+                          message-pathname
+                          trace-buffer
+                          lookup-context)))
       (cond ((not (for-all? responses smtp-response-valid?))
             (pop-up-temporary-buffer "*SMTP-invalid*"
                                      '(READ-ONLY FLUSH-ON-SPACE)
@@ -1001,7 +1001,7 @@ the user from the mailer."
                   "done"
                   "aborted")))))
 
-(define (transct-smtp recipients message-pathname trace-buffer lookup-context)
+(define (transact-smtp recipients message-pathname trace-buffer lookup-context)
   (call-with-smtp-socket (ref-variable mail-relay-host lookup-context)
                         (ref-variable mail-relay-service lookup-context)
                         trace-buffer