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