[Erc-commit] [commit][emacs22] erc-identd: Make it really work with Emacs 22.

[mwolson]

commit b6ea38211a1c804482c91f6baa8d6d6e6bf217c6
Author: Michael Olson <address@hidden>
Date:   Sat Mar 25 06:12:41 2006 +0000

    erc-identd: Make it really work with Emacs 22.
    
    * erc-identd.el (erc-identd-start, erc-identd-stop): Add autoload
      cookies.
      (erc-identd-start): Pass :host parameter so this works with Emacs 22.
    git-archimport-id: address@hidden/erc--cvs--0--patch-141

diff --git a/ChangeLog b/ChangeLog
index 1343da5..7f0d0e6 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -2,6 +2,9 @@
 
        * erc-identd.el (erc-identd-start): Fix a bug by making sure that
        erc-identd-process is set properly.
+       (erc-identd-start, erc-identd-stop): Add autoload cookies.
+       (erc-identd-start): Pass :host parameter so this works with Emacs
+       22.
 
 2006-03-21  Michael Olson  <address@hidden>
 
diff --git a/erc-identd.el b/erc-identd.el
index 0b9532a..197d51c 100644
--- a/erc-identd.el
+++ b/erc-identd.el
@@ -1,6 +1,6 @@
 ;;; erc-identd.el --- RFC1413 (identd authentication protocol) server
 
-;; Copyright (C) 2003 Free Software Foundation, Inc.
+;; Copyright (C) 2003, 2006 Free Software Foundation, Inc.
 
 ;; Author: John Wiegley <address@hidden>
 ;; Keywords: comm, processes
@@ -46,6 +46,7 @@
                             system-type (user-login-name)))
        (process-send-eof erc-identd-process)))))
 
+;;;###autoload
 (defun erc-identd-start (&optional port)
   "Start an identd server listening to port 8113.
 Port 113 (auth) will need to be redirected to port 8113 on your
@@ -64,11 +65,13 @@ system."
        (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)))
+                                 :host 'local :service port
+                                 :server t :noquery t
+                                 :filter 'erc-identd-filter)
+         (open-network-stream-server "identd" (generate-new-buffer "identd")
+                                     port nil 'erc-identd-filter))))
 
+;;;###autoload
 (defun erc-identd-stop (&rest ignore)
   (interactive)
   (when erc-identd-process