[Mew-dist 11450] Re: flush queue

[Hideyuki SHIRAI ( 白井秀行 )]

From: Kazu Yamamoto (山本和彦) <kazu at example.com> さん曰く
Subject: [Mew-dist 11433] Re: flush queue
Message-ID: <19991124214348Q.kazu at example.com>
Date: Wed, 24 Nov 1999 21:43:41 +0900

kazu> --- 1671,1684 ----
kazu>     "Flush the mail queue explicitly."
kazu>     (interactive)
kazu>     (if (or (not mew-ask-flush-queue) (y-or-n-p "Flush queue? "))
kazu> !       (let (pro)
kazu> ! 	(message "Flushing the queue ... ")
kazu> ! 	(setq pro (mew-im-start-process mew-prog-imput "Send" nil "-q"))
kazu> ! 	(set-process-sentinel pro 'mew-flush-sentinel)
kazu>   	(mew-summary-clean-folder-cache mew-queue-folder))))
kazu> + 
kazu> + (defun mew-flush-sentinel (process event)
kazu> +   (message "Flushing the queue ... done"))

ここんところで、pro という束縛された変数ではなくて、
(仮称)mew-flush-process のようにグローバルな変数を使って欲しいで
す。そして、sentinel で nil にする。
もしくは mew-flush-sentinel-hook を run-hooks するか、この両方。^^;

理由は queue の flush を終えた後の電話回線を切断するタイミングを
知りたいからです。

-- 
白井秀行 (mailto:shirai at example.com)