Posted to tcl by jeremy_c at Thu Dec 10 22:34:37 GMT 2009view raw

  1. key message-id not in header
  2. while executing
  3. "error "key $mixed not in header""
  4. ("default" arm line 5)
  5. invoked from within
  6. "switch -- $key {
  7. "" {
  8. set result ""
  9. foreach lower $state(lowerL) mixed $state(mixedL) {
  10. lappend result..."
  11. (procedure "::mime::getheader" line 7)
  12. invoked from within
  13. "::mime::getheader $part ${message-idL} "
  14. invoked from within
  15. "smtp::sendmessage $token -recipients $recipient -servers $email_server"
  16. (procedure "send_simple_message" line 7)
  17. invoked from within
  18. "send_simple_message test@doe.com smtp.com \
  19. "This is the subject." "This is the message.""
  20. (file "test.tcl" line 13)