* riece-server.el (riece-reset-process-buffer): Reset

[riece] / lisp / riece-server.el

diff --git a/lisp/riece-server.el b/lisp/riece-server.el
index 2defd70..2323ddd 100644 (file)
--- a/lisp/riece-server.el
+++ b/lisp/riece-server.el
@@ -36,7 +36,6 @@
       (:service 6667)
       (:nickname riece-nickname)
       (:username riece-username)
-      (:realname riece-realname)
       (:password)
       (:function riece-default-open-connection-function)
       (:coding riece-default-coding-system))
@@ -263,10 +262,14 @@ the `riece-server-keyword-map' variable."
     (make-local-variable 'riece-obarray)
     (setq riece-obarray (make-vector riece-obarray-size 0))
     (make-local-variable 'riece-coding-system)
+    (make-local-variable 'riece-filter-semaphore)
+    (setq riece-filter-semaphore '(nil))
     (buffer-disable-undo)
     (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)