   "docstring"
   (let ((my-ip (emdocs-get-internal-ip-address)))
     (if my-ip
-        (unless *emdocs-server*
-          (setq *emdocs-server*           ; the setq is required, not sure why
-                (condition-case *emdocs-server*
-                    (emdocs-setup-server my-ip)
-                  (file-error 'no-conn)))
+        (progn
+          (unless *emdocs-server*
+            (setq *emdocs-server*           ; the setq is required, not sure why
+                  (condition-case *emdocs-server*
+                      (emdocs-setup-server my-ip)
+                    (file-error 'no-conn))))
           (if (eq *emdocs-server* 'no-conn)
               (progn
                 (message "Server could not connect: exiting.")

(defun emdocs-connect-client (buffer ip)
  "docstring"
  (unless (string-equal ip (emdocs-get-internal-ip-address))
      (let ((process (make-network-process
                    :name (emdocs-get-client-process-name buffer ip)
                    :buffer (emdocs-get-client-process-buffer buffer)
                    :family 'ipv4

                              (emdocs-client-filter buffer sock msg))
                    :server nil
                    :noquery t)))
      (add-to-list '*emdocs-outgoing-clients*
                   (make-instance 'emdocs-client
                                  :process process
                                  :attached-buffer (if (bufferp buffer)
                                                       (buffer-name buffer)
                                                     buffer)
                                  :ip ip)))))

(defun emdocs-broadcast-message (msg)
  (loop for client in *emdocs-incoming-clients*
