[Mew-dist 16138] Re: 巨大メイルの送信

[KOIE Hidetaka ( 鯉江英隆 )]

 From:       Kazu Yamamoto (山本和彦) <kazu at example.com>
 Subject:    [Mew-dist 16136] Re: 巨大メイルの送信
 Date:       Fri, 2 Feb 2001 04:48:17 +0900
 Message-Id: <20010202.042401.39243826.kazu at example.com>

  | >     ("content"      ("250" . "done") (t . "content"))      ;; <==
  | 
  | メールの一部を送っても、SMTP サーバから返事が返って来るわけではないの
  | で、状態は変らず、"content" には飛ばないでしょうね。

あ、テーブルを変える必要はないような気がしてきました。
ステータスが返ってこなければ遷移は起きないのですよね。

のこりのデータを送信するために、すぐexpireするタイマを設定してます。

  | (defun mew-smtp-command-content (pro pnm)
  |   (if (< xxxpoint (point-max))
  |       (progn
  |         (setq xxxtimer
  |               (run-at-time "0 sec" nil                         ;;<==
  |                            'mew-smtp-command-content pro pnm)) ;;<==
  |         ;;(message "send: %d" xxxpoint)
  |         (process-send-region pro xxxpoint (1+ xxxpoint))
  |         (setq xxxpoint (1+ xxxpoint)))
  |     (cancel-timer xxxtimer)
  |     (process-send-string pro (format ".%s" mew-cs-eol))))

--
KOIE Hidetaka 鯉江英隆 <hide at example.com>