From: ueno <ueno>
Date: Tue, 26 Aug 2003 13:00:50 +0000 (+0000)
Subject: * riece-filter.el (riece-sentinel): Suppress status message when
X-Git-Tag: riece-0_1_1~10
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=4a30d54b4a864b0e9e6aa3a45dcd5d738e0861e6;p=elisp%2Friece.git

* 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,5 +1,10 @@
 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):
 	New function.
 
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)