[Mew-Win32 00497] Re: Question about dial-up connection

[小関 吉則 (KOSEKI Yoshinori)]

いつも即物的で、思いつきでしか書きませんが.....
(ごめんなさい)

北口> で、要は「何をもって online/offline とみなすか?」の指標があれば
北口> いいわけですが、「これぐらいで妥協しては?」という案のある方、
北口> いらっしゃいますか?

(defun connect-condition (proc str)
  (let ((buf (get 'proc 'buffer)))
    (set-buffer buf)
    (goto-char (point-min))
    (setq smtp-default-server-alive
          (if (search-forward (concat smtp-default-server " is alive") nil t)
              t nil))
    (erase-buffer)
    ))

(let (proc buf)
  (setq buf (get-buffer-create "*connect condition*"))
  (setq smtp-default-server-alive nil)
  (setq proc (start-process
              "Ping Ping Ping" buf
              "/usr/etc/ping"
              smtp-default-server))
  (put 'proc 'buffer buf)
  (set-process-sentinel proc 'connect-condition))

を評価すると、smtp-default-server が生きていれば
smtp-default-server-alive が t になります。

pop server なり、stmp server なり、使おうと思った時に ping 
すればつながっているかはわかります。(かもしれません。)
 
北口> # 単独マシンなら PPP が生きているかでできるかもしれませんが、
北口> # できれば家庭内 LAN から dial-up(gateway 経由) も考慮できれば
北口> # 便利かな、と思うのですが...無理かなぁ。

自動ダイアルアップの場合は、pingして調べるとつながっちゃいま
す。でもそれは常時つながっているのと同じですよね。:-)
--
こせき