Attachment "None" to
ticket [402651ffff]
added by
jenglish
2000-12-05 09:18:08.
Index: pop3.tcl
===================================================================
RCS file: /cvsroot/tcllib/tcllib/modules/pop3/pop3.tcl,v
retrieving revision 1.8
diff -c -r1.8 pop3.tcl
*** pop3.tcl 2000/09/14 21:32:54 1.8
--- pop3.tcl 2000/12/05 02:16:59
***************
*** 179,185 ****
# get the terminating "."
# sometimes the gets returns nothing,
# need to get the real terminating "."
! while {[gets $chan] != ".\r"} {}
lappend result $msgBuffer
}
--- 179,185 ----
# get the terminating "."
# sometimes the gets returns nothing,
# need to get the real terminating "."
! while {[string compare [string trimright [gets $chan]] "."]} {}
lappend result $msgBuffer
}
***************
*** 329,335 ****
# End of the message is a line with just "."
! if {$line == "."} {
break
} elseif {[string index $line 0] == "."} {
set line [string range $line 1 end]
--- 329,335 ----
# End of the message is a line with just "."
! if {[string equal [string trimright $line] "."]} {
break
} elseif {[string index $line 0] == "."} {
set line [string range $line 1 end]
***************
*** 374,380 ****
while {1} {
set line [gets $chan]
# End of the message is a line with just "."
! if {$line == "."} {
break
} elseif {[string index $line 0] == "."} {
set line [string range $line 1 end]
--- 374,380 ----
while {1} {
set line [gets $chan]
# End of the message is a line with just "."
! if {[string equal [string trimright $line] "."]} {
break
} elseif {[string index $line 0] == "."} {
set line [string range $line 1 end]
