* riece-irc.el (riece-irc-quit-server-process): Display message

[riece] / lisp / riece-irc.el

diff --git a/lisp/riece-irc.el b/lisp/riece-irc.el
index 0a29660..66146de 100644 (file)
--- 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)