%%
%% myirchat-toggle-server.el
%%
%% NAKATA Yoshinori(white@d51.net)
%% Dec 1 2000 base version.
%% Dec 4 2000 fix output message error.
%%
(setq irchat-command-window-height 3)
(setq irchat-service 6667)
(setq irchat-server "chat.kydsem.co.jp")
(setq irchat-name "NAKATA Yoshinori")
(setq irchat-nickname "white")

(setq myirchat-toggle-server-list
      '(("irc.kyoto.wide.ad.jp" 6667)
	("irc.dti.ne.jp"        6667))
)
(setq myirchat-toggle-server-list-current
      (append () myirchat-toggle-server-list))
(setq irchat-server (car (car myirchat-toggle-server-list-current)))
(setq irchat-service (car (cdr (car myirchat-toggle-server-list-current))))

(defun myirchat-toggle-server ()
  (interactive)
  (setq myirchat-toggle-server-list-current
	(cdr myirchat-toggle-server-list-current))
  (if (null myirchat-toggle-server-list-current)
      (setq myirchat-toggle-server-list-current 
	    (append () myirchat-toggle-server-list))
      ()
  )
  (setq irchat-server (car (car myirchat-toggle-server-list-current)))
  (setq irchat-service (car (cdr (car myirchat-toggle-server-list-current))))
  (insert "\nirchat-server set to '")
  (insert irchat-server)
  (insert (concat "' " irchat-service "\n"))
)

%%
%% my key binding
%%

%(define-key global-map "\C-ti" 'myirchat-toggle-server)