[Mew-Win32 02588] Re: mew-offline.el for 1.95bxx.
Shuichi KITAGUCHI ( 北口修一 )
kit at example.com
2000年 4月 27日 (木) 23:17:27 JST
北口です。
後藤> minor-mode-alist が現在は
後藤> (mew-summary-buffer-process " Running")
後藤> になっているところを
後藤> (mew-summary-buffer-process mew-summary-buffer-process-status)
後藤> とかにして
後藤> (setq mew-summary-buffer-process-status " Running")
後藤> と
後藤> (setq mew-summary-buffer-process-status " Run-and-OFF")
後藤> とかね。
これは良さそうです。
白井> だけど、これって、Mew で +inbox とか imls しているところじゃない
白井> とわからないから、rascon-frame-title-function() にも仕込んでしま
白井> うとか。
rascon の方に入れるのはちょっと...
imget が走っている時だけでなく、SMTP を喋っている時にも "Running" と
なって欲しい(間違えて送信中に切ったことが何回か)ので、Mew 側をいじっても
いいかなと思う今日この頃です。
白井> もう一つ気付いたのですが、現状だと、
白井> (defun mew-offline-hangup ()
白井> (interactive)
白井> (let ((pplst (list mew-smtp-process-prefix))) ; process prefix list
白井> (if mew-offline-hangup-p
白井> (progn
白井> (catch 'loop
白井> で、mew-smtp から hook が来たときだけしか mew-offline-hangup-p
白井> を見ないから、loop 中にも見て欲しいところです。本当はこの loop
白井> は background で動いて欲しいところ。。。
このループは現在の状態を見るだけなので一瞬しか走らないはずですけど、
background にした方がいいですか?
白井> # mew-win32-mvm 向けのコードは外しちゃっていいです。なんかサポー
白井> # トする気が無くなってしまった。
実はこの一言が欲しかったりして(^^;
# すいません、条件が複雑になるのでちょっと面倒だったのです...
--
Shuichi Kitaguchi <kit at example.com>
Mew-win32 メーリングリストの案内