[Erc-commit] [commit][emacs22] erc-identd: Fix bug.

[mwolson]

commit 2af6f3edbdeca296dc111c52466f7525ebb68f33
Author: Michael Olson <address@hidden>
Date:   Sat Mar 25 05:34:50 2006 +0000

    erc-identd: Fix bug.
    
    * erc-identd.el (erc-identd-start): Fix a bug by making sure that
      erc-identd-process is set properly.
    git-archimport-id: address@hidden/erc--cvs--0--patch-140

diff --git a/ChangeLog b/ChangeLog
index d9007e1..1343da5 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,8 @@
+2006-03-25  Michael Olson  <address@hidden>
+
+       * erc-identd.el (erc-identd-start): Fix a bug by making sure that
+       erc-identd-process is set properly.
+
 2006-03-21  Michael Olson  <address@hidden>
 
        * CREDITS: Add Nelson Ferreira.  Change contact address.
diff --git a/erc-identd.el b/erc-identd.el
index 5cb179c..0b9532a 100644
--- a/erc-identd.el
+++ b/erc-identd.el
@@ -60,14 +60,14 @@ system."
        (setq port (string-to-number port))))
   (if erc-identd-process
       (delete-process erc-identd-process))
-  (if (fboundp 'make-network-process)
-      (setq erc-identd-process
+  (setq erc-identd-process
+       (if (fboundp 'make-network-process)
            (make-network-process :name "identd"
                                  :buffer (generate-new-buffer "identd")
                                  :service port :server t :noquery t
                                  :filter 'erc-identd-filter))
-    (open-network-stream-server "identd" (generate-new-buffer "identd")
-                               port nil 'erc-identd-filter)))
+       (open-network-stream-server "identd" (generate-new-buffer "identd")
+                                   port nil 'erc-identd-filter)))
 
 (defun erc-identd-stop (&rest ignore)
   (interactive)