Artifact
8f3efc16a22385382e3e06de32d4e7d9b64ef6a6:
Attachment "smtp.diff" to
ticket [557520ffff]
added by
tcoram
2002-05-18 08:08:33.
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)