Index: smtp.tcl
===================================================================
RCS file: /cvsroot/tcllib/tcllib/modules/mime/smtp.tcl,v
retrieving revision 1.21
diff -r1.21 smtp.tcl
88a89,91
> #             -maxsecs     Maximum number of seconds to allow the SMTP server
> #                          to accept the message. If not specified, the default
> #                          is 120 seconds.
106a110
>     set maxsecs 120
131a136
> 	    -maxsecs    {set maxsecs $value}
381a387
> 		                -maxsecs $maxsecs \
571c577
<                             -queue 0 -servers localhost -ports 25]
---
>                             -maxsecs 120 -queue 0 -servers localhost -ports 25]
848c854
<     set secs [expr {(($state(size)>>10)+1)*3600}]
---
>     set secs $options(-maxsecs)
