(:service 6667)
(:nickname riece-nickname)
(:username riece-username)
- (:realname riece-realname)
(:password)
(:function riece-default-open-connection-function)
(:coding riece-default-coding-system))
(erase-buffer)))
(defun riece-close-server-process (process)
+ (with-current-buffer (process-buffer process)
+ (run-hooks 'riece-after-close-hook))
(kill-buffer (process-buffer process))
(setq riece-server-process-alist
(delq (rassq process riece-server-process-alist)