Fleshing out connection code.

diff --git a/murk.el b/murk.el
index 49adc34..af7fd0e 100644 (file)
--- a/murk.el
+++ b/murk.el
@@ -88,7 +88,7 @@ This includes the process and the response string.")
   (elt (assoc server murk-connection-table) 2))
 
 (defun murk-set-connection-response (server string)
-  (setf (elt (assoc server murk-connection-table) 3) string))
+  (setf (elt (assoc server murk-connection-table) 2) string))
 
 (defun murk-connection-close (server)
   (setq murk-connection-table (assoc-delete-all server murk-connection-table)))
@@ -114,7 +114,7 @@ This includes the process and the response string.")
          (host (elt row 1))
          (port (elt row 2))
          (flags (seq-drop row 3)))
-    (make-network-process :name (concat "lurk" server)
+    (make-network-process :name (concat "murk-" server)
                           :host host
                           :service port
                           :family nil
@@ -138,7 +138,9 @@ This includes the process and the response string.")
       (murk-display-error "Already connected to this network.")
     (if (not (assoc server murk-networks))
         (murk-display-error "Network '" server "' is unknown.")
-      (murk-start-process server)
+      (let ((proc (murk-start-process server)))
+        (add-to-list murk-connection-table
+                     (list server proc "")))
       (murk-send-msg (murk-msg nil nil "USER" murk-nick 0 "*" murk-nick))
       (murk-send-msg (murk-msg nil nil "NICK" murk-nick)))))