expectでPOP3のメール取得と削除

Question

expectでPOP3のメール取得と削除をしようとしているのですが、うまく動きません。
取得は出来ているようなのですが、ログが遅れて出てくるのか
deleの所に被ったりOKが後で纏めて出てきたりなどで、出力結果がうまく見れません。
また削除についてはOKが出てるように見えるのですが、1通も消えてませんでした。
(telnetで入って「dele 1」とやったら当然消えました)

また「log_user 0」にしているにもかかわらず、標準出力にメールの内容が漏れ出します。

何がいけないのでしょうか。
また改善するにはどうしたらいいでしょうか。
※間のnoopは特に意味はないです。

#!/bin/expect -f

set timeout -1
spawn $env(SHELL)
match_max 100000

expect -exact "$ "
send -- "telnet pop.example.com 110\r"
expect -exact "telnet pop.example.com 110\r"

send -- "user [e-mail]\r"
expect -exact "+OK"

send -- "pass password\r"
expect -exact "+OK"

send -- "list\r"
expect -re "\r\.$"

log_user 0

set i 1
while { $i <= 100 } {
        send_user "retr $i\r"
        send -- "retr $i\r"
        expect -re "\r\.$"
        send_user "==retr== $i ==\r"
        incr i 1
}

log_user 1
send_user "noop\r"
send -- "noop\r"
expect -exact "+OK"

sleep 3
set i 1
while { $i <= 100 } {
        #send_user "dele $i\r"
        send -- "dele $i\r"
        expect -exact "+OK"
        send_user "==dele== $i ==\r"
        incr i 1
}

send -- "quit\r"
expect -exact "+OK"

exit
expect eof

以上、よろしくお願いします。

Answer 1

問題点は2点あった
・まだ応答が完了していないのにexpectが「OK」に反応してしまい、sendを出すタイミングが早すぎた
・popの仕様上、正しくquitしないとメールが消えない事

expect -re "\+OK.*\r"
上記みたいな感じで、力技で応答の行末を確認し、実行する事で問題なく動作した。
そしてちゃんと最後まで完了するようにキレイに書いた。