X-Git-Url: http://cgit.sxemacs.org/?p=riece;a=blobdiff_plain;f=lisp%2Friece-filter.el;h=89abe6fed80b4f7596d7dd0ebb8b31d6f905b99d;hp=a19221ae447ac532dd4f3f372fbc16dca1346bbf;hb=8578d51ae0b432dce4534ba2e0ff58002df25378;hpb=9f9d9d361effbeb34ec1d3c1152e1949f609e00d;ds=inline

diff --git a/lisp/riece-filter.el b/lisp/riece-filter.el
index a19221a..89abe6f 100644
--- a/lisp/riece-filter.el
+++ b/lisp/riece-filter.el
@@ -124,6 +124,8 @@
 		(throw 'contiguous nil)))))
 	(forward-line)))))
 
+(eval-when-compile
+  (autoload 'riece-exit "riece"))
 (defun riece-sentinel (process status)
   (if riece-reconnect-with-password
       (let ((server-name
@@ -154,7 +156,10 @@
 	      (riece-part-channel (car channels)))
 	  (setq channels (cdr channels))))
       (riece-redisplay-buffers)
-      (riece-close-server-process process))))
+      (riece-close-server-process process)
+      ;; If no server process is available, exit.
+      (unless riece-process-list
+	(riece-exit)))))
 
 (provide 'riece-filter)