*** smtp.tcl.org	2005-07-21 23:18:16.000000000 +0200
--- smtp.tcl	2005-07-21 23:19:10.000000000 +0200
***************
*** 900,907 ****
      if {$response(code) == 334} {
          set challenge [base64::decode $response(diagnostic)]
          set reply [hmac_hex $options(-password) $challenge]
!         set reply [base64::encode \
!                        "$options(-username) [string tolower $reply]"]
          set result [smtp::talk $token 300 $reply]
          array set response $result
      }
--- 900,907 ----
      if {$response(code) == 334} {
          set challenge [base64::decode $response(diagnostic)]
          set reply [hmac_hex $options(-password) $challenge]
!         set reply [string map {"\n" ""} [base64::encode \
!                        "$options(-username) [string tolower $reply]"]]
          set result [smtp::talk $token 300 $reply]
          array set response $result
      }
