X-Git-Url: http://git.chise.org/gitweb/?a=blobdiff_plain;f=lisp%2Friece-irc.el;fp=lisp%2Friece-irc.el;h=66146dee97789a404cb0363557dd87d483c15976;hb=cb21d2a5591ea8f7d94ccf87cfcede6ae67a8f52;hp=0a296604611918f0c0b7fb3d28bfd615eba1b9d3;hpb=10bdce62eeb8fcb245fcefda628933c557c5e5d8;p=elisp%2Friece.git

diff --git a/lisp/riece-irc.el b/lisp/riece-irc.el
index 0a29660..66146de 100644
--- a/lisp/riece-irc.el
+++ b/lisp/riece-irc.el
@@ -96,10 +96,12 @@
 			   (if (rassq process riece-server-process-alist)
 			       (delete-process process)))
 			 process))
+  (message "Sending QUIT to server...")
   (riece-process-send-string process
 			     (if message
 				 (format "QUIT :%s\r\n" message)
-			       "QUIT\r\n")))
+			       "QUIT\r\n"))
+  (message "Sending QUIT to server...done"))
 
 (provide 'riece-irc)