Posted to tcl by jeremy_c at Thu Dec 10 22:34:37 GMT 2009view raw
- key message-id not in header
- while executing
- "error "key $mixed not in header""
- ("default" arm line 5)
- invoked from within
- "switch -- $key {
- "" {
- set result ""
- foreach lower $state(lowerL) mixed $state(mixedL) {
- lappend result..."
- (procedure "::mime::getheader" line 7)
- invoked from within
- "::mime::getheader $part ${message-idL} "
- invoked from within
- "smtp::sendmessage $token -recipients $recipient -servers $email_server"
- (procedure "send_simple_message" line 7)
- invoked from within
- "send_simple_message test@doe.com smtp.com \
- "This is the subject." "This is the message.""
- (file "test.tcl" line 13)