[Emacs-diffs] Changes to emacs/lisp/erc/erc-netsplit.el,v

[Michael W. Olson]

CVSROOT:        /sources/emacs
Module name:    emacs
Changes by:     Michael W. Olson <mwolson>      07/11/29 22:36:38

Index: erc-netsplit.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/erc/erc-netsplit.el,v
retrieving revision 1.6
retrieving revision 1.7
diff -u -b -r1.6 -r1.7
--- erc-netsplit.el     26 Jul 2007 05:26:52 -0000      1.6
+++ erc-netsplit.el     29 Nov 2007 22:36:38 -0000      1.7
@@ -173,13 +173,14 @@
 
 (defun erc-netsplit-timer (now)
   "Clean cruft from `erc-netsplit-list' older than 10 minutes."
+  (when erc-server-connected
   (dolist (elt erc-netsplit-list)
     (when (> (erc-time-diff (cadr elt) now) 600)
       (when erc-netsplit-debug
        (erc-display-message
         nil 'notice (current-buffer)
         (concat "Netsplit: Removing " (car elt))))
-      (setq erc-netsplit-list (delq elt erc-netsplit-list)))))
+       (setq erc-netsplit-list (delq elt erc-netsplit-list))))))
 
 ;;;###autoload
 (defun erc-cmd-WHOLEFT ()