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]
