[mew-win32 04307] non-blocking connect()

[Kazu Yamamoto ( 山本和彦 )]

山本です。

non-blocking connect() が利用できるか否かを判定する方法を書いていません
でした。以下を *scratch* で評価して下さい。

(defun my-filter (pro string)
  (goto-char (point-max))
  (insert "FIL: " string))

(defun my-sentinel (pro string)
  (goto-char (point-max))
  (insert "SEN: " string))

(make-network-process
 :name "foo"
 :buffer (current-buffer)
 :host "localhost"
 :service "smtp"
 :nowait t
 :filter 'my-filter
 :sentinel 'my-sentinel)

・プロセスが返ってきたら、non-blocking connect() が利用できます。
・エラーが返ってきたら、そもそも使えないか、コンパイルミスです。
・nil が返ってきたら、Emacs のバグです。

--かず