From: Daiki Ueno <ueno@unixuser.org>
Date: Tue, 26 Aug 2003 13:00:50 +0000 (+0000)
Subject: * riece-filter.el (riece-sentinel): Suppress status message when
X-Git-Url: http://cgit.sxemacs.org/?p=riece;a=commitdiff_plain;h=65b4635fabf875e722133ecba5ca18eb5c78d3cb

* riece-filter.el (riece-sentinel): Suppress status message when
riece-debug is nil.
---

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 30e444c..dd30d8d 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2003-08-26  Daiki Ueno  <ueno@unixuser.org>
+
+	* riece-filter.el (riece-sentinel): Suppress status message when
+	riece-debug is nil.
+
 2003-08-26  Daiki Ueno  <ueno@unixuser.org>
 
 	* riece-highlight.el (riece-channel-list-mark-current-channel):
diff --git a/lisp/riece-filter.el b/lisp/riece-filter.el
index fb8894d..6fb3b19 100644
--- a/lisp/riece-filter.el
+++ b/lisp/riece-filter.el
@@ -141,18 +141,15 @@
 	(setq riece-reconnect-with-password nil))
     (let ((server-name (with-current-buffer (process-buffer process)
 			 riece-server-name)))
-      (if (and (process-id process)		;not a network connection
-	       (string-match "^exited abnormally with code \\([0-9]+\\)"
-			     status))
+      (if riece-debug
 	  (if (equal server-name "")
-	      (message "Connection closed: %s" (match-string 1 status))
+	      (message "Connection closed: %s"
+		       (substring status 0 (1- (length status))))
 	    (message "Connection to \"%s\" closed: %s"
-		     server-name (match-string 1 status)))
+		     server-name (substring status 0 (1- (length status)))))
 	(if (equal server-name "")
-	    (message "Connection closed: %s"
-		   (substring status 0 (1- (length status))))
-	  (message "Connection to \"%s\" closed: %s"
-		   server-name (substring status 0 (1- (length status))))))
+	    (message "Connection closed")
+	  (message "Connection to \"%s\" closed" server-name)))
       (let ((channels riece-current-channels))
 	(while channels
 	  (if (and (car channels)