[Erc-commit] [commit][emacs22] Fix bug in last patch.

[mwolson]

commit ad1e95220d64a2d75aabadb4db042d98a57b43f1
Author: Michael Olson <address@hidden>
Date:   Sun Aug 13 22:46:46 2006 +0000

    Fix bug in last patch.
    
    
    git-archimport-id: address@hidden/erc--main--0--patch-41

diff --git a/erc-backend.el b/erc-backend.el
index aeb8d69..a4a038b 100644
--- a/erc-backend.el
+++ b/erc-backend.el
@@ -419,9 +419,10 @@ Additionally, detect whether the IRC process has hung."
         (if (> (erc-time-diff (erc-current-time)
                               erc-server-last-received-time)
                erc-server-send-ping-interval)
-            ;; if the process is hung, kill it
-            (setq erc-server-timed-out t)
-            (delete-process erc-server-process)
+            (progn
+              ;; if the process is hung, kill it
+              (setq erc-server-timed-out t)
+              (delete-process erc-server-process))
           (erc-server-send (format "PING %.0f" (erc-current-time)))))
     ;; remove timer if the server buffer has been killed
     (let ((timer (assq buf erc-server-ping-timer-alist)))