From 4a30d54b4a864b0e9e6aa3a45dcd5d738e0861e6 Mon Sep 17 00:00:00 2001 From: ueno Date: Tue, 26 Aug 2003 13:00:50 +0000 Subject: [PATCH] * riece-filter.el (riece-sentinel): Suppress status message when riece-debug is nil. --- lisp/ChangeLog | 5 +++++ lisp/riece-filter.el | 15 ++++++--------- 2 files changed, 11 insertions(+), 9 deletions(-) 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 + * riece-filter.el (riece-sentinel): Suppress status message when + riece-debug is nil. + +2003-08-26 Daiki Ueno + * 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) -- 1.7.10.4