[mew-dist 29206] Re: 共通のmew.elファイル の設定をホスト毎にカスタマイズする方 法

>> Fri, 09 Apr 2010 08:40:32 +0900 (JST), Hideyuki SHIRAI () <[email protected]> said:

> NotePC Emacs +
> Mew 




1. ping
   

   (defun check-host-alive (hostname)
     (if (>= emacs-major-version 22)
         (eq (call-process-shell-command
	   "/sbin/ping" nil nil nil "-c 1" hostname) 0)
       t))

2. mailserver.example.jppingssh-server
   sshost.example.jpcase*-ssh-serverssh-server
   

   (let* ((ssh-server (if (eq (check-host-alive "mailserver.example.jp") nil)
                          "sshost.example.jp")))

      `(("default"

	 ("smtp-server"		"mailserver.example.jp")
	 ("smtp-ssh-server"	,ssh-server)

	 ("imap-server"		"mailserver.example.jp")
	 ("imap-ssh-server"	,ssh-server)

	)))

--
ura