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

before/after sending QUIT.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 00cb3c9..092c5ae 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2005-08-15  Daiki Ueno  <ueno@unixuser.org>
+
+       * riece-irc.el (riece-irc-quit-server-process): Display message
+       before/after sending QUIT.
+
 2005-08-14  Daiki Ueno  <ueno@unixuser.org>
 
        * riece.el (riece-addons-insinuated): Abolished.

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)