Artifact
8e078e864a8c34ebd9dc0b45e1919e0d1d088cf1:
Attachment "smtp.diff" to
ticket [557520ffff]
added by
tcoram
2002-05-22 22:41:52.
Also attachment "smtp.diff" to
ticket [558132ffff]
added by
tcoram
2002-05-20 07:56:19.
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 [expr {$value < 0 ? 0 : $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)
