From: ueno <ueno>
Date: Mon, 15 Aug 2005 00:13:20 +0000 (+0000)
Subject: * riece-irc.el (riece-irc-quit-server-process): Display message
X-Git-Tag: channel-coding-branchpoint~97
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=cb21d2a5591ea8f7d94ccf87cfcede6ae67a8f52;p=elisp%2Friece.git

* 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
--- 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
--- 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)